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

Question

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

Гость

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

Accepted Answer

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.