Задать вопрос
28 октября, 05:00

Дан массив A (4). Найти максимальный элемент массива и его порядковый номер.

На паскале.

+5
Ответы (1)
  1. 28 октября, 08:32
    0
    Const n=4;

    var A:array [1 ... n] of real;

    i, max, j:integer;

    maxs:real;

    begin

    for i: = 1 to n do

    readln (A[i]) ;

    for i: = 1 to n do

    for j: = 1 to n do

    if A[i]>A[j] then

    begin

    maxs:=A[i];

    max:=i;

    end;

    writeln (maxs,' ', max)

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