Исправить ошибки в коде (3 ошибки) for i: =1 to 20 - вопрос №102122783120201 от stik6 18.11.2022 01:26

Question

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

stik6 · Answer

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.

Объяснение: