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]:=round(a[i]/10);
For i:=1 to 20 Do Write(a[i]);
end.
И вообще можно написать так
Begin For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:=round(a[i]/10);
Write(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]:=round(a[i]/10);
For i:=1 to 20 Do Write(a[i]);
end.
И вообще можно написать так
Program massiv;
Var a:array[-10..10] of integer;
Begin
For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:=round(a[i]/10);
Write(a[i]);
end;
end.