Question

Как дописать программу по информатике? найти максимальный элемент и его номер? без всякой константы? типо такого: program aaa; var a: array[1..5] of integer; i, m, nom: integer; begin for i: = 1 to 5 do begin writeln('введите число',i, 'элемент'); readln(a[i]); end; m: = a[1]; for i: =1 to 5 do begin if a[i] then max; m: =a[i]; nom: =i; end; writeln('максимальное число',m, 'номер числа в массиве',nom); end.

Answer 1

Program PM;
Var
   A:array[1..5] of integer;
   i,Max:integer;
Begin
Max:=1;
For i:= 1 to 5 do
    Begin
    Write('A[',i,'] = ');ReadLn(A[i]);
    if A[Max] < A[i] then Max:=i
    End;
WriteLn('Max(A) = A[',Max,'] = ',A[Max]);
End.

Пример работы программы:

A[1] = 1
A[2] = 3
A[3] = 8
A[4] = 16
A[5] = 2
Max(A) = A[4] = 16