1)Заполнить массив N чисел значениями и вывести на экран произведение чётных элементов массива.
2)Дан массив действительных чисел. Найти максимальный элемент среди отрицательных элементов и поменять его местами с минимальным положительным.
Ответы на вопрос
Ответил jestkiy1
0
первая задача
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.
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.
Ответил jestkiy1
0
вывод забыл
Новые вопросы