Program summa; var a: array[1..40] of integer; i, suma: integer; begin for i:= 1 to 40 do ; for i:=1 to 40 do; begin if 'a'[i] mod 5 = 0 then "[" a:=i; writeln ('s', s); end. ПИШЕТ ЧТО В 10 СТРОКЕ ОШИБКАИСПРАВЬТЕ

program dlksjijh;

var

 A: array[1..40] of integer;

 i: integer;

begin

 randomize;

 writeln('исходные данные:');

 for i := 1 to 40 do

 begin

   A[i] := Random(21);

   write(A[i], ' ');

 end;

 writeln;

 writeln('преобрезованный массив:');

 for i := 1 to 40 do

 begin

   if A[i] mod 2 = 0 then

     A[i] := Round(A[i]/2)

   else

     A[i] := A[i] * 3;

   write(A[i], ' ');

 end;

end.

Фуф, вроде так))