Регистрация
slipnot174
04.02.2020 15:28
Информатика
Есть ответ 👍

Водномерном массиве a(10) найти значение и индекс наименьшего из положительных элементов

148
149
Посмотреть ответы 2

Ответы на вопрос:

gnastena021
gnastena021
4,6(72 оценок)

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.

filatevanastya1
filatevanastya1
4,8(44 оценок)

ответ: «Якщо — то — інакше»

Популярно: Информатика