Вопрос по информатике:
Program qq;
const N=5;
var a:array[1..N] of integer;
i,iMax:integer;
begin
writeln('Исходный массив:');
for i:=1 to N do begin
a[i]:=random(100)+50;
write(a[i]:4);
end;
iMax:=1;{считаем,что певый-минимальный}
for i:=2 to N do {проверяем все остальные}
if a[1]>a[iMax] then {новый минимальный}
iMax:=1; {запомнить i}
writeln; {перейти на новую строку}
writeln('Минимальный элемент a[',iMax,']=', a[iMax]);
end.
Исправить чтобы получилось минимальный массив
- 26.01.2018 23:42
- Информатика
- remove_red_eye 15718
- thumb_up 51
Ответы и объяснения 1
Надеюсь это то что надо
const
N = 5;
var
a: array[1..N] of integer;
i, iMin: integer;
begin
writeln('Исходный массив:');
for i := 1 to N do
begin
a[i] := random(100) - 50;
write(a[i]:4);
end;
iMin := 1;{инциируем первым элементом}
for i := 2 to N do {проверяем все остальные}
if a[i] < a[iMin] then {новый минимальный}
iMin := i; {запомнить i}
writeln; {перейти на новую строку}
writeln('Минимальный элемент a[', iMin, ']=', a[iMin]);
end.
- 27.01.2018 16:50
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.