Заполнить массив случайными числами из интервала от 0 до 50 и вывести его ** экран. (**...

Question

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

Comments

Вы как трактуете понятие "четный элемент"? Элемент стоящий в массиве на четном месте (второй. четвертый и т.д.), или элемент, имеющий четное значение?

Answer 1

//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.