Перепишите программу на паскале, исправив ошибки: 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.

оксана755 оксана755    2   21.05.2019 08:10    2

Ответы
tereschenkomaria tereschenkomaria  01.10.2020 02:51

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика