Заполнить массив случайными числами из интервала от 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.
//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.