Question

Составьте программу в Паскале для поиска:
a)суммы положительных элементов массива от а от 1 до 100, введенных с клавиатуры
b) произведения отрицательных элементов массива а от 1 до 100
c) количества нулевых элементов массива с сотней элементов

Answer 1

а) uses crt;
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.

Answer 2

б) var a : array[1..5] of integer;
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.

Answer 3

в) uses crt;
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.