Var A: array [1..7] of real var max: real, i: integer begin for i:=1 to 7 do readln (A[i]); max = A[1]; for i:=2 to 7 do if A[i] > max then max := A[i]; writeln (max); end.
Begin var n:=ReadInteger('n = '); var m:=ReadInteger('m = '); Writeln('Исходная матрица:'); var a:=MatrRandom(n,m,-20,20); a.Println(4); for var i:=0 to a.RowCount-1 do for var j:=0 to a.ColCount-1 do if a[i,j]>0 then a[i,j]:=1 else a[i,j]:=0; Writeln('Измененная матрица:'); a.Println(4) end.
Напрашивается двухмерный массив. (или какой там) в строчку будут располагаться цифры от 1 до 12. Под каждой цифрой пусть будет вторая строка - дней в году. Названия месяца и названия сезона текстовые, по этому легче сделать через case of (паскаль), но если требуют массивы, то создаем массив с переменной string и называем первую строчку от января до декабря. Вторую - названия сезонов. Зима,зима, весна,весна,весна,лето,лето,лето и т.д. Массивы заполняешь программно в коде. А потом просто проверка какой номер задан. Допустим 5. ищем элемент с икс координатой 5 и смотрим что во второй строке - кол-во дней. Запоминаем. Смотрим в текстовом массиве 5ый стобик. Берем первую строку - название месца. Запоминаем. Берем вторую строку - сезон. Запоминаем. Делаем проверку на первое/последнее место и ВЫВОДИМ.
var max: real, i: integer
begin
for i:=1 to 7 do readln (A[i]);
max = A[1];
for i:=2 to 7 do if A[i] > max then max := A[i];
writeln (max);
end.