Предмет:
ИнформатикаАвтор:
sammy90Автор:
colonelАвтор:
madilynnАвтор:
shnookienz1zconst size = 10;
Var
sum: integer;
arr: array[1..size] of integer;
Begin
for var i := 1 to size do
begin
Write('Введите ', i, ' число: ');
Readln(arr[i]);
if (arr[i] mod 2 = 0) then
sum := sum + arr[i];
end;
Writeln();
Writeln('Сумма четных чисел = ', sum);
End.
Автор:
alvaradoДобавить свой ответ
Предмет:
Русский языкАвтор:
nicoОтветов:
Смотреть
Предмет:
МатематикаАвтор:
happyzccpОтветов:
Смотреть
Предмет:
ГеометрияАвтор:
reynaldohklgОтветов:
Смотреть
Предмет:
ФизикаАвтор:
ramiroohvxОтветов:
Смотреть