дано 50 домов , человек в одном доме от 50 до

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

Задать свой вопрос
1 ответ
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] gt; max) then   
begin   
max:= nn[i];   
f:= i;   
end; 
end; 
writeln; 
 writeln(max,'больше всего человек в доме по нoмером ',f);
end.  
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт