Pascal Ввести в компьютер с клавиатуры линейный массив значений дневной температуры воздуха за первую неделю мая вывести полученный результат в виде таблицы.

var

 i: integer;

 t: array[1..7] of real;

begin

 WriteLn('Введите температуру за первую неделю мая:');

 for i := 1 to 7 do

 begin

   Write(i, ' мая: '); ReadLn(t[i]);

 end;

 WriteLn('+|+');

 for i := 1 to 7 do

   WriteLn('|',i,' мая | ', t[i]:2:1, ' C |');

 WriteLn('+|+');

end.

Объяснение:

program z1;

var a:array [1..7] of integer;

i:integer;

begin

writeln ('Введите температуру воздуха за первую неделю мая через пробел. Потом нажмите Enter.');

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

writeln;

writeln ('');

writeln ('  Дни  |  Температура  ');

writeln ('');

for i:=1 to 7 do writeln (i:4,'   |',a[i]:8);

writeln ('')

end.

Объяснение:

Вводи массив с клавиатуры

Печатаем шапку таблицы

Выводим массив используя форматированный вывод.