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

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

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

Задать свой вопрос
1 ответ
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.
Валерий Привородский
вывод забыл
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт