Написано на Pascal
var
Night:array [1..31] of integer ; //Массив с ночными температурами
Day:array[1..31] of integer; //Массив с дневными температурами
i,dif: integer;
begin
dif:=0; // Разница
for i:=1 to 31 do // Цикл заполняющий дневные и ночные температуры(Тут без отрицательных температур)
begin
Night[i]:=random(30); // Рандомная ночная температура
Day[i]:=random(30); // Рандомная дневная температура
end;
for i:=1 to 31 do // Цикл, который ищет максимальную разницу
if (Day[i]-Night[i])>=dif then
begin
dif:=Day[i]-Night[i];
end;
for i:=1 to 31 do // Цикл, который выводит дни с максимальной разницей
if dif=(Day[i]-Night[i]) then
writeln('Разница '+dif+'; '+i+' Мая');
end.
Объяснение:
По горизонтали
2. Электронное устройство, преобразующее графический образ, хранящийся, как содержимое памяти в форму, пригодную для дальнейшего вывода на экран монитора
3. Печатающее устройство
4. Жаргонное именование аппаратного обеспечения
5. Устройство вывода графической информации
7. Коробка для содержания внутренностей компьютера
8. Центральное обрабатывающее устройство
9. Устройство вывода аудио информации
По вертикали
1. Система охлаждения
2. Долговременная память компьтера
5. Устройство для ввода звуковой информации
6. Устройство для чтения накопителей
Объяснение: