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

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.

 

Сделал по условию, которое понял. var  a: array[1..3, 1..6] of integer;   i, j: integer; begin  writeln('введите 6 чисел через enter ');   for i : = 1 to 3 do    for j : = 1 to 6 do      case j of        1, 4: begin readln(a[i, j]); a[i, j] : = 2 * a[i, j]; end;         2, 5: a[i, j] : = sqr(i + j - 1);         3, 6: a[i, j] : = j mod 2;       end;   writeln('сформированный массив ');         for i : = 1 to 3 do    begin    for j : = 1 to 6 do      write(a[i, j], ' ');     writeln; end; end.

//pascal abc.net v3.0 сборка 1111 var   ma: array[1..15,1..2] of integer;   i,j,min: integer; begin;   randomize;   min: =2147483647;   for i: =1 to 15 do   begin;     writeln;     for j: =1 to 2 do       begin;       ma[i,j]: =random(100);       write(ma[i,j]: 4);       end;   if (ma[i,1]+ma[i,2])< min then min: =ma[i,1]+ma[i,2];   end;   writeln;   writeln('min=',min);   end.