Задачи на массивы в Паскале

[Dark_Zealot]

Люди! Очень прошу вас о помощи! Препод дал на завтра две задачи на массивы, а я вообще не понимаю как их решить... Решите ПОЖАЛУЙСТА, очень прошу...
1)Составить программу нахождения чаще всего встречающегося элемента в массиве С(М,М);
2)Составить программу, заменяющую отрицательный элемент массива А(Q,Q) нулями.

[alex_fcsm]

1

const n=10;
type Tel=record
      value,i:integer;
      end;
var i,j,maxi,maxj,k,l:integer;
    a:array[1..n,1..n] of TEl;

begin
for i:=1 to n do
begin
 for j:=1 to n do
   begin
    a[i,j].value:=random(5)+1;
    a[i,j].i:=0;
    write(a[i,j].value:2);
   end;
writeln;
end;
for i:=1 to n do
 for j:=1 to n do
   for l:=1 to n do
    for k:=1 to n do
  if a[i,j].value=a[k,l].value then inc(a[i,j].i);
maxi:=1;maxj:=1;
writeln;
for i:=1 to n do
 for j:=1 to n do
 if a[i,j].i>a[maxi,maxj].i then begin
                                  maxi:=i;maxj:=j;
                                 end;
writeln(a[maxi,maxj].value);
end.

[alex_fcsm]

2

const n=10;
var i,j:integer;
    a:array[1..n,1..n] of integer;

begin
for i:=1 to n do
begin
 for j:=1 to n do
   begin
    a[i,j]:=random(20)-random(15);
    write(a[i,j]:3);
   end;
writeln;
end;
writeln('============================');
for i:=1 to n do
begin
 for j:=1 to n do
 begin
  if a[i,j]<0 then a[i,j]:=0;
  write(a[i,j]:3);
 end;
writeln;
end;
end.

[joker2019]

Здравствуйте, помогите пожалуйста, преподы задрали, не разбираюсь в массивах. Вот задача:
Дано произвольное значение b и два произвольных массива G,V размера n,m соответственно. Найти сумму элементов массива G, меньших заданного b, а также сумму элементов массива V, меньших заданного b. Исходные данные взять самостоятельно.

Буду благодарен!

[IT-man]

Стучи в аську! Сделаю!

[Nordak]

а не поможите мне пожалуста, до завтра мне сказали сделать по массиву
1)В каждой строке заданой матрицы А(N,M) вычислить сумму количество и среднее арифметическое положительных элементов
пожалуста буду оч. признателен

[Samyrai]

Nordak, звони в скайп, у меня есть подобная задача.

[MaxTi]

хелп плиз с задачей
задан массив Ri, где i=1...n. Найти значение индексов максимального и минимального чисел массива, вывести их на экран?

[ОДИНОЧЕСТВО В СЕТИ]

MaxTi

uses crt;
var
i,n:integer ;
a:array[1..100] of integer;
max,min,im1,im2:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
clrscr;
max:=a[1];min:=a[1];im1:=1;im2:=1;
For i:=1 to n do begin
write(a[i]:4);
if a[i]>max then begin max:=a[i]; im1:=i;end;
if a[i]<min then begin min:=a[i]; im2:=i;end;
end;
writeln('min=',min,' index=',im2);
writeln('max=',max,' index=',im1);
readln;
end.

[MaxTi]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

MaxTi

uses crt;
var
i,n:integer ;
a:array[1..100] of integer;
max,min,im1,im2:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
clrscr;
max:=a[1];min:=a[1];im1:=1;im2:=1;
For i:=1 to n do begin
write(a[i]:4);
if a[i]>max then begin max:=a[i]; im1:=i;end;
if a[i]<min then begin min:=a[i]; im2:=i;end;
end;
writeln('min=',min,' index=',im2);
writeln('max=',max,' index=',im1);
readln;
end.

огромное спс