3. Дан массив А, состоящий из 11 элемента. Найти и отпечатать наименьший из его положительных элементов, предполагая, что они есть среди элементов массива.
Ответы
Ответ дал:
0
var a:array[1..1000]of longint;
n,i,min:longint;
begin
min:=1000;
read(n);
for i:=1 to n do
begin
read(a[i]);
if (min>a[i])and(a[i]>0) then min:=a[i];
end;
write(min);
end.
n,i,min:longint;
begin
min:=1000;
read(n);
for i:=1 to n do
begin
read(a[i]);
if (min>a[i])and(a[i]>0) then min:=a[i];
end;
write(min);
end.
Вас заинтересует
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад