1) Заполнить массив N чисел значениями и вывести на экран произведение чётных элементов массива.

2) Дан массив действительных чисел. Найти максимальный элемент среди отрицательных элементов и поменять его местами с минимальным положительным.

Question

Информатика

Никеня

15 октября, 21:13

1) Заполнить массив N чисел значениями и вывести на экран произведение чётных элементов массива.

2) Дан массив действительных чисел. Найти максимальный элемент среди отрицательных элементов и поменять его местами с минимальным положительным.

+2

Ответы (1)

Знаете ответ?

Тама · Answer 1

Первая задача

var

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

i, n, s:integer;

begin

read (n) ;

s:=1;

for i:=1 to n do

begin

a[i]:=random (10) ;

if i mod 2=0 then

begin

s:=s*a[i];

end;

end;

end.