const N=6;
var i,sum,count,min,x,count_us,count_m,count_p:integer;
var arr: array[1..N] of integer;
begin
read(x);
sum:=0;
count:=0;
min:=99999;
for i:=1 to N do
begin
readln(arr[i]);
sum:= sum + arr[i];
if arr[i] mod 2 <> 0 then inc(count);
if arr[i] < min then min:= arr[i];
if (arr[i] > x) and (arr[i] mod 5 = 0) then inc(count_us);
if arr[i]<0 then inc(count_m) else inc(count_p);
end;
if count_m > count_p then write('Отрицательных чисел больше')
else write('Положительных чисел больше')
// Тут сделай вывод а-д если надо
end.
Объяснение:
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) Последнее попробуй сам решить. Удачи:)
11001
Объяснение:
Деление уголком на 2, все остатки выносим в ответ