Помогите . Составить программу которая заполняет массив а от 1 до 10 случайными целыми числами в диапазоне от 1 до 10 и выводит на экран сумму элементов массива с четными числами
Нет комментариев
Ответы
Гость Program llllll;
var
A: array [0..10] of integer;
n, i, b : integer;
begin
writeln('Введите количество чисел');
readln(n);
b:=0;
for i := 1 to n do
A[i] := random(10);
b:=0;
for i := 1 to n do
begin
if A[i] mod 2 = 0 then
b:=b+A[i];
end;
writeln('Это сумма ' , b);
writeln(A);
end.
Нет комментариев
Похожие вопросы
Информатика
Как составлять программу на turbo pascal ?...
Информатика
Что значит линия занята?...
Список предметов
