1) Произведение отрицательных чисел
uses crt;
var
a:array [1..100] of integer;
i,n,s:integer;
begin
clrscr;
write ('Введите количество элементов массива:');
readln (n);
for i:=1 to n do
a[i]:=random (15)-10;
write (a[i],' ');
writeln;
if a[i]<0 then
s:=s*a[i];
writeln ('s=',s);
readln
end.
2) Сумма четных чисел
if a[i] mod 2 = 0 then
s:=s+a[i];
3) Последнее попробуй сам решить. Удачи:)
1) Произведение отрицательных чисел
uses crt;
var
a:array [1..100] of integer;
i,n,s:integer;
begin
clrscr;
write ('Введите количество элементов массива:');
readln (n);
for i:=1 to n do
a[i]:=random (15)-10;
write (a[i],' ');
writeln;
for i:=1 to n do
if a[i]<0 then
s:=s*a[i];
writeln ('s=',s);
readln
end.
2) Сумма четных чисел
uses crt;
var
a:array [1..100] of integer;
i,n,s:integer;
begin
clrscr;
write ('Введите количество элементов массива:');
readln (n);
for i:=1 to n do
a[i]:=random (15)-10;
write (a[i],' ');
writeln;
for i:=1 to n do
if a[i] mod 2 = 0 then
s:=s+a[i];
writeln ('s=',s);
readln
end.
3) Последнее попробуй сам решить. Удачи:)