одномерный массив.
найти сумму тех элементов которые без остатка делиться на 2
(pascal).

const n=20;var   s,i: integer;  var a: array[1..n] of integer;begin  writeln ('Исходный массив');  for i:=1 to n do begin    a[i]:=random(100);    write (a[i]:3);    if a[i] mod 2 =0      then s:=s+a[i];  end;  writeln;    writeln ('Сумма четных элементов = ',s);end.------------------Результат:------------------Исходный массив 81 44 47 62 51 94 32 42 41 83 75 14 18 35  7 97 83 51 71 57Сумма четных элементов = 306