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.
Объяснение:
Вводи массив с клавиатуры
Печатаем шапку таблицы
Выводим массив используя форматированный вывод.