Cоставить программу в паскале по подсчету кол-ва - вопрос №358739 от Kylaguzzz 05.12.2022 15:31

Question

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

Kylaguzzz · 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.