Задан двумерный массив a из 5-ти строк и 2-х столбцов. составить программу, которая формирует одномерный массив в, каждый элемент которого есть произведение элементов массива a в строке.

Program gt; var a: array[1..5,1..5]of integer; b: array[1..5]of integer; s,i,j: integer; begin for i: =1 to 2 do begin s: =1; for j: =1 to 5 do begin read(a[i,j]); s: =s*a[i,j]; end; b[i]: =s; end; for i: =1 to 5 do write(b[i],' '); end.

2^i = 128

i = 7 бит

800 * 7 = 5600 бит

5600 : 8 = 700 байт

700 : 1024 = 0,684 килобайт.

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.