Программа определения максимального по модулю чисел из массива вещественных чисел

@SlemCool · Регистрация: 02.06.2014

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

Помогите пожалуйста, если не сильно сложно. Разработать программу определения максимального по модулю чисел из массива вещественных чисел, вводимых с клавиатуры. Размер массива – произвольный.
Вот есть на Pascal

Pascal

Код Pascal
var
  A: array[1..100] of real;
  max: real;
  n, i: byte;
 
begin
  cls;
  write('n = ');
  readln(n);
  max := 0;
  writeln('Введите ', n, ' вещественных чисел:');
  for i := 1 to n do begin
    read(a[i]);
    if abs(max) < abs(a[i]) then max := a[i]
  end;
  writeln;
  writeln('Максимальное по модулю число: ', max)
end.

@SlemCool · 04.06.2014, 15:11 **[ТС]**

Можно закрывать. Всем спасибо.

@SlemCool 0 / 0 / 0 Регистрация: 02.06.2014 Сообщений: 4
	04.06.2014, 15:11 [ТС]	2
	Можно закрывать. Всем спасибо. 0