Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Напишите программу паскаль которая считает сумму рандомных чисел и сумму чётных из 10-ти рандомных чисел. Заранее Пасиба

Эдвард Ученик (130), на голосовании 1 месяц назад
Тип программы такой:
var i,s:integer;
a:array [1..10] of integer;
begin
randomize;
s:=s+i;
for i:=1 to 10 do a[i] :=random(100);
for i:=1 to 10 do write (a[i],' ');
end.
Голосование за лучший ответ
Владислав'ох Согрин Ученик (98) 2 месяца назад
Turbo pascal
ЭдвардУченик (130) 2 месяца назад
Ты мне лучше программу помоги написать, ото не пойму как сделать это. Спасибо заранее!
Кублен Оракул (94575) 2 месяца назад
uses crt;
var i,s:integer;
a:array [1..10] of integer;
begin
randomize;
s:=0;
for i:=1 to 10 do begin
a[i]:=random(11);
write (a[i],' ');
if a[i] mod 2=0 then s:=s+a[i] end;
writeln;
writeln('s= ',s);
end.
Похожие вопросы