Перепишите программу на Паскале, исправив ошибки:Program massiv;Var a:array(-10..10) of integer;BeginFor i:=1 to 20 DoRead(a[i])

Question

4 года назад

10

Перепишите программу на Паскале, исправив ошибки:

Program massiv;

Var a:array(-10..10) of integer;

Begin

For i:=1 to 20 Do

Read(a[i]);

For i:=1 to 20 Do

a[i]:=a[i]/10;

For i:=1 to 20 Do

Write(a[i])

End.

1 ответ:

Елена Ли [303] · Answer 1 · 2020-03-14T19:21:09+03:00

0 0

Program massiv;