Заполнить массив случайными числами из интервала от 0 до 50 и вывести его на экран. (на 3). Найти сумму его четных элементов (на 4-5). Может поможет: Пример. Заполнить массив 20 элементами случайными числами от 0 до 35 и вывест...
Заполнить массив случайными числами из интервала от 0 до 50 и вывести его на экран. (на 3). Найти сумму его четных элементов (на 4-5).
Может поможет:
Пример. Заполнить массив 20 элементами случайными числами от 0 до 35 и вывести его на экран.
Решение:
1сп (ввод и вывод массива отдельными циклами)
Var A: array[1..20]of integer;
i: integer;
Begin
{заполняем массив случайными числами}
For i:=1 to 20 do
A[i]:=random(36);
{выводим массив на экран}
For i:=1 to 20 do begin
write (A[i]:5);
end.
2сп (ввод и вывод массива в одном цикле)
Var A: array[1..20]of integer;
i: integer;
Begin
{заполняем массив случайными числами и сразу выводим}
For i:=1 to 20 do
begin
A[i]:=random(36);
write (A[i]:5);
end;
end.
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.Net
//NaaMan
var
a : array[1..20] of integer;
n, sum : integer;
begin
randomize;
sum := 0;
writeln('Заполнение массива:');
for n := 1 to 20 do begin
a[n] := random(50);
if a[n] mod 2 = 0 then sum := sum + a[n];
write( a[n], ' ' )
end;
writeln;
writeln('Сумма четных элементов: ', sum)
end.
Не нашли ответ?
Похожие вопросы