Cоставить программу в паскале по подсчету кол-ва жильцов в доме случайным числом в диапазоне от 50 до 200 человек. (число домов 30). Программу составить через массив.

Question

Информатика

Эсфирка

5 января, 09:50

Cоставить программу в паскале по подсчету кол-ва жильцов в доме случайным числом в диапазоне от 50 до 200 человек. (число домов 30). Программу составить через массив.

+4

Ответы (1)

Знаете ответ?

Евдуня · Answer 1

Program zadacha;

Var a:array [1 ... 100] of integer;

i, s:integer;

Begin

Randomize;

s:=0;

For i:=1 to 30 do begin

a[i]:=random (150) + 50;

s:=s+a[i];

End;

Writeln (s) ;

End.