Ответ:
const M = 10;
var A: array [1..M] of integer;
var i,res1,res2,res3: integer;
begin
// Задаем элементы массива
For i:= 1 to M do
write('Введите ',i,' элемент массива: ');
readln(A[i]);
end;
res1:=0; // Сумма элементов с четными номерами
res2:=1; // Произведение отрицательных элементов
res3:=0; // Кол-во нечетных элементов
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;
writeln('Сумма элементов с четными номерами: ',res1);
writeln('Произведение отрицательных элементов: ',res2);
writeln('Кол-во нечетных элементов: ',res3);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.