Дано 50 домов , человек в одном доме от 50 до 100 определить номер дома в котором больше всего человек. через рандом, паскаль

pavelniyazov pavelniyazov    1   10.09.2019 22:10    0

Ответы
barsik20002 barsik20002  07.10.2020 06:13
Var nn:array[1..50] of integer;
    max,i,f: integer;
begin 
max:= 0; 
for i:= 1 to 50 do 
begin   
nn[i]:= random(51) + 50;   
write(nn[i]:4);   
if (nn[i] > max) then   
begin   
max:= nn[i];   
f:= i;   
end; 
end; 
writeln; 
 writeln(max,'больше всего человек в доме по нoмером ',f);
end.  
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика