Тема: Одномерные массивы.
В паскале в массиве даны 10 целых чисел.
Нужно найти сумму четных чисел.
Var A: Array[0..9] of Integer; i, Sm: Integer; begin Sm:=0; for i:=0 to 9 do A[i]:=Random(300) - 20; for i:=0 to 9 do if (A[i] Mod 2 = 0) then Sm:=Sm + A[i]; WriteLn('Sum = ', Sm); end.