Вопрос по информатике:
Как дописать программу по информатике? Найти максимальный элемент и его номер? Без всякой константы? Типо такого:
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.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.03.2018 10:55
- Информатика
- remove_red_eye 4122
- thumb_up 24
Ответы и объяснения 1
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
- 07.03.2018 19:45
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.