Регистрация
dary090
25.05.2022 09:30
Информатика
Есть ответ 👍

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

113
287
Посмотреть ответы 3

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

очароваш
очароваш
4,6(22 оценок)

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.

Fefiego
Fefiego
4,6(3 оценок)

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.

katyaden2
katyaden2
4,6(63 оценок)

2 КБ = 16 384 бит

6 КБ = 49 152 бит

4 КБ = 32 768 бит

8 КБ = 65 536 бит

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