Дан массив из 20 чисел заданных случайным образом. Найти: наименьшее нечетное число и его номер. Вывести на экран исходный массив, наименьший нечетный и написать блок схему.

Pascal ABC.

Question

Информатика

Капитон

25 апреля, 09:05

Дан массив из 20 чисел заданных случайным образом. Найти: наименьшее нечетное число и его номер. Вывести на экран исходный массив, наименьший нечетный и написать блок схему.

Pascal ABC.

+5

Ответы (1)

Знаете ответ на вопрос?

Емельян · Answer 1

Var

a: array[1 ... 20] of integer;

i, x, x1, min, min1: integer;

begin

min:=32767;

randomize;

for i:=1 to 20 do

a[i]:=random (200) - 100; / / Заполнение массива

writeln ('Исходный массив: ') ;

for i:=1 to 20 do

begin

write (' ', a[i],' ') ;

if ((a[i]
begin

min:=a[i];

min1:=min;

x:=i;

end;

end;

writeln () ;

write ('Позиция: ', x,', значение: ', min1) ;

end.