Заполните одномерный массив произвольными числами от 0 до 10.
Размерностью 10. Вычислите сумму элементов имеющих чётный номер.
Нужна программа на Паскаль
Ответы
Ответ дал:
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.
Похожие вопросы
1 год назад
1 год назад
1 год назад
1 год назад
2 года назад
8 лет назад