Дан двумерный массив целых числе i=10 j=15, заполняется случайным образом целыми числами от 0до 100. 1) определить сколько раз в нем встречается элемент со значеием х. х задается прользователем 2) определить количесво четных элементов массива.

var a: array[1..10,1..15]of integer; i,j,n,x: integer; beginfor i: =1 to 10 do for j: =1 to 15 do a[i,j]: =random(101); for i: =1 to 10 do begin for j: =1 to 15 do write(a[i,j],' '); if j=15 then writeln; end; readln(x); for i: =1 to 10 do for j: =1 to 15 doif a[i,j]=x then inc(n); writeln(n); end.

var a: array[1..10,1..15]of integer; i,j,k: integer; beginfor i: =1 to 10 do for j: =1 to 15 do a[i,j]: =random(101); for i: =1 to 10 do begin for j: =1 to 15 do write(a[i,j],' '); if j=15 then writeln; end; for i: =1 to 10 do for j: =1 to 15 doif a[i,j] mod 2=0 then inc(k); writeln(k); end.

паскаль авс:

program maxtv; uses crt; const n=10; var  a: array[1..n] of real;   r: real;   i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('введите r, не равное 0'); readln(r);   if r< > 0 then      begin          writeln('элементы массива: ');           randomize;               for i: =1 to n do                  begin                      a[i]: =random(100)-50;                       write (a[i]: 7: 2);                   end;               writeln();               writeln('заменяем 2,4,5,9: ');               a[2]: =a[2]/r;               a[4]: =a[4]/r;               a[5]: =a[5]/r;               a[9]: =a[9]/r;               for i: =1 to n do                  write (a[i]: 7: 2)      end   else      writeln('ну вас же просили не вводить 0! ');       end.