Ответ: 24.
Если взять иные варианты (25, 28, 26), то ничего выйдет, т.к. они не делятся на 3, а значит и цикла не получится.
Program n1;
var i,sum,a,k: integer;
begin
sum:=0;
k:=0;
for i:=1 to 20 do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
write(sum/k);
end.
Type LinMass = array [1..1000] of Integer;
<span>Var A : LinMass; N, i, j : Integer; </span>
begin
Write('Количество элементов массива: '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); ReadLn(A[i]);
End;
i:=1;
while i <= n do
if (A[i] mod 2 = 0) and (A[i] mod i = 0) and (A[i] div 1000 = 0) and (A[i] div 100 > 0)
then begin
for j:=i+1 to n do A[j-1]:=A[j];
n:=n-1
end
else i:= i+1;
For I := 1 To N Do
write(a[i]:6);
<span>end.</span>
1) const N = 10;
var a:array[1..N] of integer;
i, k: integer;
begin
k:=0;
for i:=1 to N do
a[i]:= random((80) - 20);
if (a[i] mod 10 = 6) and (a[i] mod 2 = 0) then
k:=k+1;
end;
writeln(k);
2)const N = 10;
var a:array[1..N] of integer;
i, k: integer;
begin
k:=0;
for i:=1 to N do
a[i]:=random(100);
for i:=1 to N-1 do
if a[i] = a[i+1] then
k:=k+1;
writeln(k);
end.