var
A: array [1..40] of Integer;
i, c: Integer;
begin
Randomize;
WriteLn ('Массив случайных чисел:');
for i := 1 to 40 do begin
A [i] := Random (10);
Write (IntToStr (A [i]) + ' ');
end;
c := 0;
for i := 1 to 40 do begin
if (A [i] mod 2 <> 0) and (A [i] mod 3 = 0) then // первое условие - проверка на нечетность, второе - делимость на 3
Inc (c);
end;
Writeln;
WriteLn ('Количество нечетных чисел, которые делятся на 3 = ' + IntToStr (c));
end.
const N = 100;
var a: array [1..N] of integer;
i, count, sum, p: integer;
arith: real;
mult: biginteger;
begin
randomize;
for i:= 1 to N do a[i]:= random(1, 1000);
sum:= 0;
for i:= 1 to N do begin
if a[i] mod 2 = 0 then begin
inc(count);
sum:= sum + a[i];
arith:= sum / count;
end;
if a[i] mod 2 = 0 then begin
p:= a[i] * a[i];
if mult = 0 then mult:= p else mult:= mult * p;
// Произведение капец длинное
if a[i] mod 3 = 0 then a[i]:= i * i;
end
end;
writeln(arith);
writeln(mult);
end.
