Максимальное число из случайных чисел.(массивы)

@pasha942010 · Регистрация: 24.02.2011

Пожалуйста, напишите программу на следующее задание:
Вывести на экран максимальное число из случайных чисел из 20 (используя randomize). Всего чисел 20.

заранее спасибо добрым людям!!!

Добавлено через 19 минут
хоть кто нибудь, побыстрее плиз! позарез срочно!

@Puporev · 24.02.2011, 18:09

Pascal

max:=random(100);
for i:=2 to 20 do
 begin
   a:=random(100);
   if a>max then max:=a;
 end;
write('Max=',max';)

@pasha942010 · 24.02.2011, 18:12 **[ТС]**

спасибо, а можно полностью программу? а то у меня не подходит решение

@Puporev · 24.02.2011, 18:16

Интересно куда оно у тебя не подходит.....

Pascal

uses crt;
var a,max,i:integer;
begin
clrscr;
writeln('Максимальное из 20 случайных чисел:');
max:=random(100);
write(max,' ');
for i:=2 to 20 do
 begin
   a:=random(100);
   write(a,' ');
   if a>max then max:=a;
 end;
writeln;
write('Max=',max);
readln
end.

@pasha942010 · 24.02.2011, 18:30 **[ТС]**

Большое спасибо!

@pasha942010 0 / 0 / 0 Регистрация: 24.02.2011 Сообщений: 7
		1
	Максимальное число из случайных чисел.(массивы) 24.02.2011, 17:51. Показов 6592. Ответов 4 Метки нет (Все метки) Пожалуйста, напишите программу на следующее задание: Вывести на экран максимальное число из случайных чисел из 20 (используя randomize). Всего чисел 20. заранее спасибо добрым людям!!! Добавлено через 19 минут хоть кто нибудь, побыстрее плиз! позарез срочно! 0

@pasha942010 0 / 0 / 0 Регистрация: 24.02.2011 Сообщений: 7
	24.02.2011, 18:12 [ТС]	3
	спасибо, а можно полностью программу? а то у меня не подходит решение 0

@pasha942010 0 / 0 / 0 Регистрация: 24.02.2011 Сообщений: 7
	24.02.2011, 18:30 [ТС]	5
	Большое спасибо! 0

Опции темы