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*
Комментарий*

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

filial2450
Alisa1639
lele52
lugowskayatania2017
goodsled
Бурмистров_Салагин1074
Волков1968
Анна Елена
natakrechko
zelreiki
kolyabelousow4059
olelukoya4
severbykova
sklad2445
lor005148