Дан одномерный массив из 20 целых случайных чисел из диапазона [-100;100]
а) найдите количество нечетных чисел
б) замените числа, кратные 3 на противоположные
ИНФОРМАТИКА 10 КЛАСС!!!

21,24,27,30,33,36,39,42,45,48

файл с исходным текстом программы на паскале должен иметь расширение pas.

var x,i,x1,x2,x3: integer

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[1]);

  x2: =int(s[2]);

  x3: =int(s[3]);

  if (x1+x3)mod x2=0 then writeln("да")

  else writeln("нет");

end.

var a: array[1..100,1..100] of integer;

i,j,s,n,k: integer;

begin

  read(n);

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if i mod 2=0 then begin

                k: =k+1;

                s: =s+a[i,j];

          end;

      end;

      writeln(s/k);

end.