Найти величину наибольшего из чисел

@Танюше4ка · Регистрация: 20.01.2012

Author24 — интернет-сервис помощи студентам

Дано 50 вещественных чисел. Найти величину наибольшего из них.

@Inocs · 03.04.2012, 15:04

они "влазят" в интеджер ?

@El41 · 03.04.2012, 15:09

Pascal

var
a:array[1..50] of real;
max:real;
i:byte;
begin
randomize;
max:=0;
for i:=1 to 50 do begin
a[i]:=(1+random(60))/27; //можно записать другую формулу
if a[i]>max then max:=a[i];
end;
writeln('max=',max:3:8);
readln;
end.

@Танюше4ка 0 / 0 / 0 Регистрация: 20.01.2012 Сообщений: 47
		1
	Найти величину наибольшего из чисел 03.04.2012, 14:57. Показов 1194. Ответов 2 Метки нет (Все метки) Дано 50 вещественных чисел. Найти величину наибольшего из них. 0

@Inocs 29 / 29 / 10 Регистрация: 28.10.2011 Сообщений: 183
	03.04.2012, 15:04	2
	они "влазят" в интеджер ? 0

	03.04.2012, 15:09

Опции темы

Найти величину наибольшего из чисел

Решение