Водномерном массиве a(10) найти значение и индекс наименьшего из положительных элементов
xxx5639
1
21.05.2019 21:00
1
Другие вопросы по теме Информатика
Анна121314151
12.06.2019 02:50
nshambulina
12.06.2019 02:50
Privetcsfvxs
12.06.2019 02:50
maksot2006ox6gx2
15.03.2021 16:36
bulavka8
15.03.2021 16:36
zhadanovayuliy
15.03.2021 16:36
Uliano4ka1
15.03.2021 16:34
olegzabl
07.07.2019 09:30
vika27072
07.07.2019 09:30
Популярные вопросы
- Прочитай текст Определи Можно ли данный тезис определить как...
3 - кто хорош в геометрии это вызов)...
1 - Почему почвы относят к природным ресурсам...
1 - 5. Выполни деление е остатком. Проверь вычислення. 30: 410:335...
3 - Сочинение на тему почему важно уметь прощать, по произведению...
2 - Составьте газообмен и легких 1)...кровь поступает в легкие по......
3 - D: Hello, come in. How can I help? P: Hello, doctor. a) thumb/1/my...
2 - Найти наибольшее и наименьшее значение функции на отрезке ...
1 - Определи утверждения, объясняющие, как бицепсы и трицепсы работают...
1 - Распределите правильно причины в таблице: Надеюсь видно...
1
var a:array[1..10] of integer;
i,min,j:integer;
begin
min:=maxint;
j:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]<min) and (a[i]>0) then
begin
min:=a[i];
j:=i;
end;
end;
writeln('Наименьший элемент массива равен',min,' индекс равен',j);
end.