Предмет: Информатика,
автор: gavrelenkov
Помогите . Составить программу которая заполняет массив а от 1 до 10 случайными целыми числами в диапазоне от 1 до 10 и выводит на экран сумму элементов массива с четными числами
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Физика,
автор: Camilla261
Предмет: Русский язык,
автор: andreyevich94777
Предмет: Физика,
автор: bom565
Предмет: Математика,
автор: airapetyanlubo