OOO"Kiprei"_Aleksandr1938
?>

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 СТРОКЕ ОШИБКАИСПРАВЬТЕ

Информатика

Ответы

Sergeevna-Makarov

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.

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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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 СТРОКЕ ОШИБКАИСПРАВЬТЕ
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ekasatkina
arinaunknown6867
Николаевич1033
ooozita5
tabacoffee
magnit-expo
thedoomsdatdcs36
anovikovsr
platonovkosty
Magnolia200872
Екатерина1979
rstas
Стадник620
Бернард pokerman
lpcck2212