Дан массив из 20 чисел заданных случайным образом. Найти: наименьшее нечетное число и его номер. Вывести на экран исходный массив, наименьший нечетный и написать блок схему.
Pascal ABC.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
