Информатика, опубликовано 2018-08-22 22:24:13 by Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на