Составьте программу в Паскале для поиска:
a)суммы положительных элементов массива от а от 1 до 100, введенных с клавиатуры
b) произведения отрицательных элементов массива а от 1 до 100
c) количества нулевых элементов массива с сотней элементов
a)суммы положительных элементов массива от а от 1 до 100, введенных с клавиатуры
b) произведения отрицательных элементов массива а от 1 до 100
c) количества нулевых элементов массива с сотней элементов
More Questions From This User See All
Answers & Comments
const n=10;
var a:array[1..n] of integer;
i,sum:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
if a[i]>0 then sum:=sum+a[i];
end;
writeln;
writeln('Сумма положительных элементов = ',sum);
end.
var i : byte;
var p : integer;
begin
randomize;
for i:=1 to 5 do a[i]:=random(100)-50;
p:=1;
for i:=1 to 5 do
if a[i] < 0 then
p:=p*a[i];
for i:=1 to 5 do
write(a[i],' ');
writeln;
write('Произведение отрицательных чисел ');
writeln(p);
end.
const n=5;
var k:array[1..n]of integer;i,l:integer;
begin
clrscr;
write('в массиве из ',n,' элементов введите ');
for i:=1 to n do
begin
writeln(i,' элемент');
readln(k[i]);
if k[i]=0 then l:=l+1;
end;
writeln('нулевых элементов ',l);
end.