Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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