Дан массив из 20 чисел, найти сумму всех четных чисел.
Пасхаль?
да
можешь написать полностью?
Напишу алгоритм дальше сам додумаешь! for i:=1 to 20 do begin if (i mod 2 =0) then s:=s+a[i]; end; Что не понятно пиши комент!