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