Дан массив из 10 чисел. Установите соответствие между требованием задачи и фрагментом программы.

1) Поиск суммы неотрицательных элементов массива
2) Поиск количества неотрицательных элементов
3) Поиск суммы нечетных элементов массива
4) Поиск суммы элементов массива, стоящих на нечетных местах

А) t:=10; for i:=1 to 10 do if a[i]<0 then t:=t-1;

Б)t:=0; for i:=1 to 10 do if a[i]>=0 then t:=t+a[i];
В) t:=0; for i:=1 to 10 do if a[i] mod 2=1 then t:=t+a[i];
Г) t:=0; for i:=1 to 10 do if i mod 2=1 then t:=t+a[i];;

1-б

2-а

3-в

4-г

---------

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.