Заполнить массив случайными числами из интервала от 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.
Заполнить массив случайными числами из интервала от 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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Var A: array[1..10] of integer;
sum, i: integer;
begin
sum := 0;
randomize;
for i := 1 to 10 do
if A[i] mod 2 = 0 thenbegin
A[i] := random(51);
write(A[i], ' ');
sum := sum + A[i];
end;
writeln;
writeln('Сумма четных элементов массива: ', sum);
end.