Question

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

На паскале. 

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.

Answer 2

исправил)

Answer 3

опечатка во втором цикле была, извиняй уж :3

Answer 4

Спасибо большое :3