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

На паскале.

Question

Информатика

Полактия

28 октября, 05:00

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

На паскале.

+3

Ответы (1)

Знаете ответ на вопрос?

Лавра · Answer 1

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). Найти максимальный элемент массива и его порядковый номер.На паскале.

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

На паскале.