Вариант 7. Дан линейный массив целых чисел. а) найти значение минимального элемента; б)...

Question

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

Comments

Программу написать в Pascal

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]

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.

Comments

В общем, ничего не добавляй, я уже изменила)

---

Там, где первая “if a[i]” нужно добавить “