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

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.

Question

Информатика

Раида

21 февраля, 01:41

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

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.

+4

Ответы (2)

Знаете ответ на вопрос?

Павша · Answer 1

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.

Веруня · Answer 2

Program massiv;

Var a:array[1 ... 20] of real;

i:byte;

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]:4)

End.

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

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

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.