Question

дан массив А(5).Найти наименьший положительный элемента среди элементов с честными номерами массива. Решать в паскале.​

Answer 1

Ответ:

var a:array[1..5]of integer;

i,m:integer;

begin

m:=0;

write('Массив: ');

for i:= 1 to 5 do

begin

a[i]:= random(21)-10;

write(a[i]:4);

if (a[i]>0) and (i mod 2 = 0) then m:=a[i]

end;

writeln;

for i:= 1 to 5 do

if (a[i]>0) and (i mod 2 = 0)and (a[i] < m) then m:=a[i];

if m=0 then writeln ('В массиве нет положительных элементов среди элементов с чётными номерами')

else writeln('Наименьший положительный элемент среди элементов с чётными номерами равен ',m)

end.