Предмет: Информатика,
автор: Filka7
Решить в ПаскальАВС!!!!!!!!!!!!
Приложения:

Ответы
Автор ответа:
1
Ответ:
const M = 10;
var A: array [1..M] of integer;
var i,res1,res2,res3: integer;
begin
// Задаем элементы массива
For i:= 1 to M do
begin
write('Введите ',i,' элемент массива: ');
readln(A[i]);
end;
res1:=0; // Сумма элементов с четными номерами
res2:=1; // Произведение отрицательных элементов
res3:=0; // Кол-во нечетных элементов
For i:= 1 to M do
begin
if ((i mod 2)=0) then res1:=res1+A[i];
if (A[i]<0) then res2:=res2*A[i];
if ((A[i] mod 2) <> 0) then res3:=res3+1;
end;
writeln('Сумма элементов с четными номерами: ',res1);
writeln('Произведение отрицательных элементов: ',res2);
writeln('Кол-во нечетных элементов: ',res3);
end.
Похожие вопросы
Предмет: Русский язык,
автор: 657890435
Предмет: Русский язык,
автор: kcylik
Предмет: Русский язык,
автор: ngalina
Предмет: Математика,
автор: Dashka2057
Предмет: Математика,
автор: мансур261