Вопрос по информатике:
Определить минимальный из положительных элементов массива A(N) и его порядковый номер. Значение N ввести в диалоге
- 05.04.2018 01:58
- Информатика
- remove_red_eye 11909
- thumb_up 12
Ответы и объяснения 1
Const n=15;
var a:array[1..n]of integer;
i,min,k:integer;
begin
for i:=1 to n do a[i]:=Random(100)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
min:=a[1];
for i:=1 to n do
if (a[i]0) then begin
min:=a[i];
k:=i;
end;
write('минимальный из положительных элементов массива ',min,', его порядковый номер ',k);
end.
- 06.04.2018 02:26
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.