Cоставить программу в паскале по подсчету кол-ва жильцов - вопрос №358564 от sema60 30.12.2022 18:53

Question

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

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