// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 begin case ReadInteger('Номер месяца (1-12):') of 1,2,12:Writeln('Зима'); 3..5:Writeln('Весна'); 6..8:Writeln('Лето'); 9..11:Writeln('Осень'); else Writeln('Неверный номер месяца') end end.
Вариант "для школьников" // PascalABC.NET 3.1, сборка 1256 от 21.06.2016 var n:integer; begin Write('Номер месяца (1-12): '); Read(n); case n of 1,2,12:Writeln('Зима'); 3..5:Writeln('Весна'); 6..8:Writeln('Лето'); 9..11:Writeln('Осень'); else Writeln('Неверный номер месяца') end end.
Var mas: array[1..15] of integer; i, min, max, nMin, nMax:integer; begin writeln('Введите 15 элементов массива'); for i := 1 to 15 do readln(mas[i]); min := mas[1]; max := mas[1]; nMin := 1; nMax := 1; for i := 1 to 15 do begin if max < mas[i] then begin max := mas[i]; nMax := i; end; if min > mas[i] then begin min := mas[i]; nMin := i; end; end; writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin); end.
1 МБит/c = 1048576 бит/с
Объяснение: