Question

Напишите пропущенные команды.Ввести с клавиатуры массив В,из 13 элементов целого типа,нумерация элементов начинается с 1 и вывести все элементы массива уменьшенные на 71.Паскаль

Answer 1

program mass;

var

 B: array [1..13] of integer;

begin

 for var i := 1 to 13 do

 begin

   readln(b[i]);

   b[i] := b[i] - 71;

 end;

 for var i := 1 to 13 do

   write(b[i], ' ');

end.