Question

Вариант 7. Дан линейный массив целых чисел.
а) найти значение минимального элемента;
б) определить произведение нечетных элементов массива;
B) вывести на экран новое состояние массива, в котором ко всем нулевым элементам прибавлено число

Answer 1

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

i,n,min,u,m:integer;

begin

Randomize;

write(‘Сколько чисел в массиве: ‘);

readln (n);

min:=9;

u:=1;

write(‘Какое число прибавлять к нулевым элементам массива: ‘);

readln(m);

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

for i:= 1 to n do

begin

a[i]:=random(10);

write(a[i],’ ‘);

if a[i]<min then min:=a[i];

if a[i] mod 2=1 then u:=u*a[i];

if a[i]=0 then a[i]:=m;

end;

writeln(‘ ‘);

writeln(‘Минимальный элемент массива: ‘,min);

writeln(‘Произведение нечетных элементов массива: ‘,u);

write(‘Новое состояние массива: ‘);

for i:=1 to n do

write(a[i],’ ‘);

end.