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

Question

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

На паскале.

Comments

берусь)

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.

Comments

Только не очень понятно, если вводить числа 1,2,3,4 то выводит ответ 0 0, если вводить 2,55, 33, 65 то выводит 55 и 2 почему так?

---

исправил)

---

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

---

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