исправить ошибки в коде (3 ошибки)
For i:=1 to 20 do
For j:=20 downto 1 do Begin
Arr[i,j]=random(100);
Write (Arr[i,j] + ’ ’); End.
- - - - - - - - - - - - - - - - - - - - - - - - -- - - - -- - - - - - - - - - - - - - - - - - - - - - -

Ответ

Автор - ursolfrom

Ответ:

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.

Объяснение:

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.