Укого есть , сор номер 2 за 1 четверть по информатике 8 класс

//Pascal
//Массивы размеров 10 элементов заполняются случайными числами от -10 до 10

//1
var
  A: array[1..10] of real;
  i: byte;
begin
randomize;
writeln('Исходный массив.');
for i := 1 to 10 do
begin
  A[i] := random(21)-10;
  write(A[i]:5);
end;
writeln;
writeln('Измененный массив.');
for i := 1 to 10 do
begin
  if A[i] > 0 then A[i] := A[i] / 2
  else A[i] := i;
  write(A[i]:5);
end;
writeln;
end.

//2
var
  A: array[1..10] of integer;
  i: byte;
  mult: longint;
begin
mult := 1;
randomize;
writeln('Исходный массив.');
for i := 1 to 10 do
begin
  A[i] := random(21)-10;
  mult := mult * A[i];
  write(A[i]:5);
end;
writeln;
writeln('Произведение элементов массива = ', mult);
end.

1)
uses crt;
const size = 10;
var a:array [1..size] of integer;
     i,p:longint;
begin
  p:=1;
  randomize;
  for i:=1 to size do
    begin
      a[i]:=random(20);
      write (a[i],' ');
      if (a[i] mod 3 = 0) then p:=p*a[i];
    end;
  writeln;
  writeln (p);
end.

2)
uses crt;
const size = 10;
var a:array [1..size] of integer;
     i:integer;
     s:real;
begin
  s:=0;
  randomize;
  for i:=1 to size do
    begin
      a[i]:=random(4)+1;
      write (a[i],' ');
      s:=s+a[i];
    end;
  writeln;
  s:=s/size;
  writeln (s);
end.