Cоставить программу в паскале по подсчету кол-ва - вопрос №358907 от Марося 21.05.2022 16:41

Question

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

Марося · Answer

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.