Question

Заполните одномерный массив произвольными числами от 0 до 10.

Размерностью 10. Вычислите сумму элементов имеющих чётный номер.
Нужна программа на Паскаль

Answer 1

Ответ:

var a:array [1..10] of Integer;

i,s:Integer;

begin

Write('Массив ');

for i:=1 to 10 do

begin

a[i]:=random(11);

write (a[i], ' ');

if i mod 2 = 0 then s:=s+a[i]

end;

WriteLn;

Write('Сумма элементов имеющих чётный номер равна ', s)

end.