Программисты помогите! нужно написать программу на паскале, найти сумму четных элементов массива.(программа должна быть примерно такой же)
Answers & Comments
pacixor
Var T: array [1..5] of integer; i, sum: integer; begin sum := 0; for i := 1 to 5 do begin write('T[',i,'] = '); readln(T[i]); if (T[i] mod 2 = 0) then sum := sum + T[i]; end; writeln('Сумма четных элементов = ', sum); end.
Answers & Comments
T: array [1..5] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to 5 do
begin
write('T[',i,'] = ');
readln(T[i]);
if (T[i] mod 2 = 0) then
sum := sum + T[i];
end;
writeln('Сумма четных элементов = ', sum);
end.