Ответ:Надо убрать запись температуры , так как посмотрев на месяц можно спокойно узнать среднюю температуру.
1. Ищем количество всех пикселей: 1152*864=995328, каждый пиксель содержит 8 бит информации. Все пиксели содержат 995328*8=7962624 бит информации, или 995328 байт, или 7776 килобайт.
над вторым подумаю и отпишу
Var i:integer;
x:array[1..5]of integer;
begin
for i:=1 to 5 do
begin
if i<>5 then read(x[i+1])
else read(x[1]);
end;
end.
Самое простое решение-считывать сразу в сдвинутом состоянии.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var a:=ArrRandom(11,5,45).Println;
var x:= a.where(t -> t.IsEven).sum;
Writeln('Сумма четных элементов: ', x);
end.
2)
begin
var a:= ArrGen(5, t -> ReadReal).Println;
a:= a.Select(t ->t/3).ToArray.Println;
end.