Заполните одномерный массив произвольными числами от 0 до 10.
размерностью 10. вычислите сумму элементов имеющих чётный номер.
нужна программа на паскаль
olga638
1
14.11.2019 19:31
0
Другие вопросы по теме Информатика
rusakova09
16.06.2020 13:29
radmirnemyshov
15.06.2019 04:20
aydin123
15.06.2019 04:20
YIUYA123DANIL
24.12.2020 13:03
amino4ka290805
28.08.2019 05:40
araydaribayaray
19.01.2021 12:26
foxheb57
19.01.2021 12:26
gerasiko
19.01.2021 12:27
Strelok09245
19.01.2021 12:27
Популярные вопросы
- Скласти розповидь про будову тюльпана...
2 - Какие институты присутствуют в гражданской отрасли права...
3 - Товарищи ! решите графически систему ! x+3y=4 2x-y=1...
3 - За первые 3 часа пешеход км, а следующие 2 часа его скорость составляла 3 км/ч....
1 - Вклассе 18 девочек это 2 раза больше чем мальчиков сколько мальчиков в классе...
1 - Бывают ли животные опасными сообщение...
1 - При полном сгорании 15 килограмм антрацита выделилось 435 мега джоуль и энергии....
1 - Составь уравнение и реши : на мельницу некоторое количество зерна. из этого зерна...
3 - Пересказ н. гоголя ночь перед рождеством 5 класс с 185-200...
2 - Из поселка и города одновременно навстречу друг другу велосипедист ехал со скоростью...
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.