Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.
Для вывода данных в виде таблицы, очень похожую на таблицу в екселе
<em>N=32 ; </em>
N = 2 (в степени i) ;
i = 5 ;
iс= i * K
iс = 5 * 256 = 1280 бит :8 = 160 байт (кол-во информации на 1 носителе);
iс= 256 * 512 * 5=655 360 бит :8 = 81 920 байт :1024 = 80 Кбайт (кол-во информации во всем своде законов)
Вариант на Excel 2003.
Ячейку, выделенную желтым можно изменить вручную.