Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. Пример: Введите номер месяца: 5 Весна. Пример: Введите номер месяца: 15 Неверный номер месяца.

program season;

var

 number_month: integer;

begin

 write('Введите номер месяца: ');

 read(number_month);

 case number_month of

   1, 2, 12: writeln('Зима.');

   3..5: writeln('Весна.');

   6..8: writeln('Лето.');

   9..11: writeln('Осень.');

 else writeln('Неверный номер месяца.');

 end

end.

Объяснение:

program season;  // Название программы

var

 number_month: integer;  // Целочисленная переменная, отвечающая за вводимый номер месяца с клавиатуры

begin  // Начало программы

 write('Введите номер месяца: ');  // Вывод сообщения

 read(number_month);  // Ввод номера месяца с клавиатуры

 case number_month of  // Принимает значение переменной number_month

   1, 2, 12: writeln('Зима.');  // Если значение переменной number_month = 1, 2, 12, то выводим "Зима"

   3..5: writeln('Весна.');  // Если значение переменной number_month = 3, 4, 5, то выводим "Весна"

   6..8: writeln('Лето.');  // Если значение переменной number_month = 6, 7, 8, то выводим "Лето"

   9..11: writeln('Осень.');  // Если значение переменной number_month = 9, 10, 11, то выводим "Осень"

 else writeln('Неверный номер месяца.');  // Иначе выводим сообщение об ошибке

 end  // Конец функции

end. // Конец программы

const n=30;

var k:array[1..n] of integer; i,t,p:integer;

begin

randomize;

for i:=1 to n do begin

k[i]:=random(100);

if (k[i]>0) then p:=p+1;

if (i=3) and (k[3]>0) then t:=k[3];

end;

if (p<3) then write('В массиве меньше трех положительных элементов') else writeln('Третий элемент массива равен ', t);

end.

 

Отрицательного значения в массиве не будет, напиши формулу к массиву k[i]:=твоя формула. Формула должна быть такой, чтобы попадались и отрицательные элементы, а так, программа рабочая

Такую надо состовлять самому!А вот простой алгоритм для аких случаев по этой проге вроде-

program jfe3;

const n=10; {Это будет кол-во элементов массива}

var a:array [1..n] of integer; i,s:integer;

begin

for i:=1 to n do begin

                            a[i]:=random(100);    {элемент выбирается случайно от 0 до 100}

                            s:=s+a[i];  {Когда эл. присвоился, его значение плюсуется к общ сумме}

                       end;

for i:=1 to n do

writeln(a[i],' ');    {показать сам массив}

writeln(s);   {показать сумму}

readln;  {чтобы окно сразу не закрывалось} END.