Руфин
5 год назад
Как дописать программу по информатике? Найти максимальный элемент и его номер? Без всякой константы? Типо такого: Program aaa;var a: array[1..5] of integer;i, m, nom: integer;beginfor i:= 1 to 5 dobeginwriteln('введите число',i, 'элемент');readln(a[i]);end;m:= a[1];for i:=1 to 5 dobeginif a[i] then max;m:=a[i];nom:=i;end;writeln('максимальное число',m, 'номер числа в массиве',nom);end.
ОТВЕТЫ
Пенка
Oct 24, 2020
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
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
642
Смежные вопросы:
