Вопрос по информатике:
Модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива.
Предыдущий пример
Program Massiv;
Const N=10;
Var A:array [1..N] of integer;
i, min:integer;
begin
for i:=1 to N do
begin
write('Введите',i,'-й элемент:'); readln(A[i]);
end;
min:=A[1];
for i:=2 to N do if A[i] then min:=A[i];
writeln('Minimum=',min);
end.
- 03.08.2017 03:43
- Информатика
- remove_red_eye 7343
- thumb_up 17
Ответы и объяснения 1
Const N=10;Var A:array [1..N] of integer;
i, min, max:integer;
begin
for i:=1 to N do
begin
writeln('Введите',i,'-й элемент:'); readln(A[i]);
end;
min:=A[1];
max :=A[1];
for i:=2 to N do
begin
if A[i] < min then min:=A[i];
if A[i] > max then max:=A[i];
end;
writeln('Minimum=',min);
writeln('Maximum=',max);
end.
- 04.08.2017 15:17
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.