Как дописать программу по информатике? Найти максимальный элемент и его номер? Без всякой константы? Типо такого:
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.

Вопрос школьника по предмету Информатика

Как дописать программу по информатике? Найти максимальный элемент и его номер? Без всякой константы? Типо такого:
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.

Ответ учителя по предмету Информатика

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