Регистрация
MrSasha1111
05.11.2020 02:08
Информатика
Есть ответ 👍

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

225
404
Посмотреть ответы 2

Ответы на вопрос:

Кама29102007
Кама29102007
4,4(67 оценок)

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.

 

 

 

 

 

 

агенбенди003
агенбенди003
4,5(76 оценок)
Var   i, j, n, s: integer;   a: array[1..100] of integer; begin   read(n);   for i : = 1 to n do read(a[i]);   for i : = 1 to n - 1 do     for j : = i + 1 to n do       if a[i] = a[j] then inc(s);   write(s); end.

Популярно: Информатика