Предмет: Информатика,
автор: govnoaya
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать натуральные значения от 1 до 10000 включительно. Опишите алгоритм, который находит минимум среди элементов массива, кратных 4 и выведите его на экран
ЯЗЫК ПАСКАЛЬ!!!
Ответы
Автор ответа:
1
Ответ:
const N=30;
var a: array[1..N] of integer;
var min,i: integer;
begin
randomize;
min:=-1;
for i:=1 to N do
begin
a[i]:=random(1,10000);
write(a[i]:5);
if (a[i] mod 4 = 0) then
begin
if (min=-1) then min:=i
else if (a[i]<a[min]) then min:=i;
end
end;
writeln;
if (min<>-1) then
writeln('Минимум среди элементов массива, кратных 4 = ',a[min])
else writeln('В массиве нет элементов, кратных 4');
end.
Похожие вопросы
Предмет: Русский язык,
автор: Alfiya123
Предмет: Английский язык,
автор: Nastasia940
Предмет: Русский язык,
автор: mariy77791
Предмет: Математика,
автор: 77755566677778888
Предмет: Физика,
автор: SelfEx