Есть число n и действительные числа а1, а2, …an, найти максимум

@1Тарас1 · Регистрация: 21.01.2013

дано число n и действительные числа а1, а2, …аn.
Определить

@Shizuka · 18.05.2013, 12:11

Pascal

var
   n,i: integer;
   a: array[1..100] of real;
   max: real;
 
function kyb( x: real) : real;
begin
     kyb := x*x*x;
end;
 
begin
     writeln('vvedite n ');
     readln(n);
     writeln('vvedite n chisel');
     for i:=1 to n do
         read(a[i]);
     max := kyb(a[1]);
     for i:=2 to n do
         if (kyb(a[i])>max) then
            max:= kyb(a[i]);
     writeln(max:8:2);
end.

@1Тарас1 3 / 3 / 0 Регистрация: 21.01.2013 Сообщений: 70
		1
	Есть число n и действительные числа а1, а2, …an, найти максимум 18.05.2013, 11:57. Показов 1370. Ответов 1 Метки нет (Все метки) дано число n и действительные числа а1, а2, …аn. Определить Изображения 0

Опции темы

Есть число n и действительные числа а1, а2, …an, найти максимум

Решение