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

Question

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

Эдвард Ученик (132), на голосовании 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.

Answer 1

Владислав'ох Согрин Ученик (57) 1 год назад

Turbo pascal

ЭдвардУченик (132) 1 год назад

Ты мне лучше программу помоги написать, ото не пойму как сделать это. Спасибо заранее!

Answer 2

Илья Филатов Знаток (328) 1 год назад

Ага щас

Answer 3

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.

Answer 4

Jurii Высший разум (175917) 1 год назад

Делов то!