Исправить ошибки в коде (3 ошибки)
for i: =1 to 20 do
for j: =20 downto 1 do begin
arr[i,j]=random(100);
write (arr[i,j] + ’ ’); end.
- - - - - - - - - - - - - - - - - - - - - - - - -- - - - -- - - - - - - - - - - - - - - - - - - - - - -

Марцело Марцело    3   20.11.2019 11:44    1

Ответы
alinalera71 alinalera71  10.10.2020 14:31

Program massiv;

Var a:array[-10..10] of integer;

       i:integer;

Begin

 For i:=1 to 20 Do

  begin

      Read(a[i]);

      a[i]:= round(a[i]/10);

       Write(a[i]);

  end;  

End.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы