1. Дан массив A: -10, 16,3,-19,0,-10,30. Вывести отрицательные элементы.
2. Найти произведение положительных элементов массива, кратных 2. Размер массива равен 5. СРОЧНО ДАЮ 20 БАЛЛОВ
Ответы
Программа:
Pascal:
var
A: array of integer = (-10, 16, 3, -19, 0, -10, 30);
i, pr: integer;
begin
writeln('Массив: ', A);
write('Отрицательные элементы: ');
for i := 0 to 6 do begin
if A[i] < 0 then
write(A[i], ' ');
if (A[i] > 0) and (A[i] mod 2 = 0) then
pr *= A[i];
end;
writeln(#13, 'Произведение положительных элементов, кратных 2: ', pr);
end.
В начале выделяем память массиву и сразу заполняем его числами. После - регистрируем переменные, которые будем использовать в дальнейшем. Выводим массив, после - выводим просто надпись "отрицательные элементы". После этого циклом проходимся по элементам массива (в ЯП Pascal 1-й элемент массива имеет порядковый номер 0, поэтому цикл от 0 до 6). Если число отрицательное, вывести его; также в этом цикле находим произведение положительных элементов, кратных двум. В конце выводим произведение положительных элементов.
