Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Массивы

Автор: erte 18.10.2012, 20:59

В одномерном массиве, состоящем из n вещественных элементов, вычислить максимальный по модулю элемент.

Автор: MetalFan 18.10.2012, 21:25

Так вычисли... не вижу что-то вычислений.
Садись - два.

Автор: MetalFan 18.10.2012, 21:25

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: MetalFan 18.10.2012, 22:13

Еще один дубль темы, и выпишу читательский билет.

Автор: Infesta 12.11.2012, 17:15

Код


uses crt;
var 
  a:array[1..10] of integer; 
  max,i:integer;
begin
  clrscr;
  for i:=1 to 10 do
  begin
    write('Введите элемент массива ',i,': ');
    readln(a[i]);
  end;
  max:=0;
  for i:=1 to 10 do
    if abs(a[i]) > max then max:=abs(a[i]);
  write('Максимальный элемент массива по модулю - ',max);
  readln
end.