Информатика!!!!!!!!Безотлагательно!!Составьте программку,которая выводит на экран в строку 8 случайных

Информатика!!!!!!!!Безотлагательно!!Составьте программку,которая выводит на экран в строку 8 случайных чисел из интервала от 15 до 100 и находит максимальное из их.(с поддержкою uses crt, И Поординарнее ПОЖАЛУЙСТА!!!!!!!!!!Паскаль!!!!

Задать свой вопрос
1 ответ

uses crt;  

var i,m,a:integer;  

begin  

clrscr;  

m:=15;  

for i:= 1 to 8 do  

begin  

a:=Random(86)+15;  

if agt;m then m:=a;  

write (a,' ')  

end;  

writeln;  

writeln('Максимальное число: ',m);

readln

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт