Поделитесь своими знаниями, ответьте на вопрос:
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.
Фуф, вроде так))