Составить программу вычисления, A - сумма положительных элементов массива;B - количество
Составить программу вычисления,
A - сумма положительных частей массива;
B - количество отрицательных частей массива;
C - творение частей массива с нечетными номерами.
Приобретенные значения частей А,B,C,W вывести на печать.
ПАСКАЛЬ!
const n=10;
var m:array [1..n] of integer;
i,A,B,C:integer;
begin
C:=1;
write('Массив: ');
for i:=1 to n do
begin
m[i]:=random(41)-20;
if m[i] gt; 0 then A:=A+m[i];
if m[i] lt; 0 then B:=B+1;
if i mod 2 lt;gt; 0 then C:=C*m[i];
write(m[i],' ')
end;
writeln;
writeln('Сумма положительных элементов: ',A);
writeln('Количество отрицательных элементов: ',B);
writeln('Творение частей массива с нечетными номерами: ',C);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
География.
Литература.
Разные вопросы.
Математика.
Разные вопросы.
Литература.
Литература.
Разные вопросы.
Кыргыз тили.
Математика.