Составьте программу, которая осуществляет ввод в массив с клавиатуры размеров 5 файлов в байтах (от 100 до 9000 байт) и преобразует значения, превышающие 1024 байт, в килобайты. Результат выводится в строку.

Question

Информатика

Митрий

2 января, 05:13

Составьте программу, которая осуществляет ввод в массив с клавиатуры размеров 5 файлов в байтах (от 100 до 9000 байт) и преобразует значения, превышающие 1024 байт, в килобайты. Результат выводится в строку.

+1

Ответы (1)

Знаете ответ на вопрос?

Эра · Answer 1

var

a:array[1 ... 5]of integer;

i:integer;

begin

for i:=1 to 5 do read (a[i]) ;

for i:=1 to 5 do write (a[i],' ') ;

writeln;

for i:=1 to 5 do if a[i]>=1024 then writeln (a[i] div 1024) ;

writeln;

end.