Перепишите программу на Паскале, исправив ошибки:
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/5
(5 оценок)
11
Ответ
1/5
(4 оценки)
4
kkazhura
12 лет назад
Светило науки - 32 ответа - 409 раз оказано помощи
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;
i:integer;
Begin
For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:= round(a[i]/10);
Write(a[i]);
end;
End.