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

Составьте программку,которая выводит на экран в строку 8 случайных чисел из интервала от 15 до 100 и находит максимальное из них. (желательно с подмогою uses crt , random)Паскаль
ДАЮ 30 БАЛЛОВ!!!!

Задать свой вопрос
Амина Самолыго
Массивы изучали уже?
1 ответ

Program lyalyalya;

var a:array[1..8] of integer;i,min,max:integer;

begin

randomize;

for i:=1 to 8 do a[i]:=random(85)+15;min:=maxint;max:=-maxint;

for i:=1 to 8 do begin write(a[i],' ');

if a[i]gt;max then max:=a[i];end;

writeln('Очень число: ',max);

readln;

end.

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


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

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

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

Войти на сайт