Двовимірний масив a[n][m] цілих чисел. складіть програму підрахунку кількості елементів, значення яких спі з сумою їх індексів. язык-pascal. !

Const n=10; m=12; var b: array[1..n,1..m] of integer; i,j,k: integer; begin k: =0; for i: =1 to n do for j: =1 to n do b[i,j]: =random(30)-10; for i: =1 to n do begin for j: =1 to n do write(b[i,j]: 5); writeln; end; for i: =1 to n do for j: =1 to n do if b[i,j]=i+j then k: =k+1; write ('количество искомых элементов ',k); writeln; end.

На 1 пункт: program mueta; uses crt; const n=(любому числу, например 3); var k: array[1..n]of integer; s: array[1..n]of integer; begin clrscr; for i: =1 to n do begin writeln('введите эл-ты массива s[i]='); readln(s[i]); end; for i: =1 to n do begin if s[i]> 0 then  writeln('s[i] положительное число', s[i]); end. 2)на второй тоже самое только нужно заменить массив на(k)  условие нужно поменять на s[i]mod 2=0                                   

Var     i,n: integer;     s,min: real; a: array[1..10]of real; begin writeln('исходный массив: '); for i: =1 to 10 do   begin   a[i]: =random(-10,10);   write(a[i],' ');   if a[i]< 0 then       begin       s: =s+a[i];       n: =n+1;       end;   if a[i]< min then  min: =a[i];   end; writeln; s: =s/n; for i: =1 to 10 do  if a[i]=min then a[i]: =s; writeln('среднее отрицательных: ',s); writeln('измененный массив: '); for i: =1 to 10 do  write(a[i],' '); end.