Массив а[1..20] заполнен случайными числами [0; 10]. найти сумму элементов с четными номерами
Aizere1111
1
19.05.2019 20:50
0
Другие вопросы по теме Информатика
olgaolgahelga
04.10.2021 08:42
adilimanaliev03
04.10.2021 08:48
Trolololo09
04.10.2021 08:53
natashasheh
05.03.2021 21:45
Dimoon122
05.03.2021 21:38
dianaterpil30031
05.03.2021 21:37
maloyzolotov
19.10.2020 05:23
Saeg
19.10.2020 05:23
DXDynamic31
04.08.2019 21:10
Популярные вопросы
- Функция прямой пропорциональности график которой перпендикулярен...
3 - Г. Боргуль «Подружка Маша» Найди соответствие между синонимами...
2 - Рационал санды шексіз периодты ондық бөлшек түрінде беру. Шексіз...
2 - Укажи, каким согласованием, управлением или примыканием) связываются...
3 - Мәтінді оқы, абзацтар мен онда айтылған ақпаратты анықта. Мәтін...
3 - Hное 6ельнони1. Вычислите:а) 26*3255;6) 197*406;в) 3286:62;г) 37084:73.2....
1 - Кто на меня подписался тот забирает ...
1 - плечом к плечу, подставлять плечо , родиться под счастливой звездой...
2 - Постройте график функции у= 0,5х², выбрав удобные единичные отрезки....
1 - Кому по любым придметам пишите в каментари...
2
program pr1;
var
m:array[1..100] of integer;
i,sum:integer;
begin
randomize;
for i:=1 to 20 do
m[i]:=random(10);
for i:=1 to 20 do
begin
write(m[i],' ');
if i mod 2 =0 then sum:=sum+m[i];
end;
writeln('');
writeln(sum);
readln;
end.