Задать вопрос
11 мая, 17:02

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

+1
Ответы (1)
  1. 11 мая, 18:53
    0
    Uses crt;

    var a:array[1 ... 99] of real;

    i, j, n:integer;

    max:real;

    begin

    write ('Введите n: ') ;

    readln (n) ;

    writeln ('Исходный массив: ') ;

    for i:=1 to n do begin

    a[i]:=random (99 - (-99) + 1) - 99;

    write (a[i]:5) ;

    end;

    writeln;

    max:=-5;

    for i:=1 to n do begin

    if abs (a[i]) >max then begin max:=abs (a[i]) ; j:=i; end;

    end;

    writeln ('Максимальное по модулю число равно ', a[j]) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «В однородном массиве, состоящем из N вещественных элементов найти максимальный по модулю массив ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы