1. Створити програму-довідник, яка за введеною назвою пори року повідомлятиме назви відповідних їй місяців2. Написати програму для обчислення площі прямокутника зі сторонами3. Учні 7 класу спілкувалися в соц.мережі. Перший учень зробив X дописів, другий учень - удописів, а кожен з решти учнів по z дописів. Скільки всього дописів було зроблено, якщо вспілкуванні брали участь пучнів.4. 3 клавіатури Вводяться довжини сторін трикутника. Бизначити чи є він рівностороннім?5. 3 клавіатури вводяться довжини сторін трикутника. Визначити чи є він рівнобедренним?​

1)

var

 D: array[1..20] of integer;

 i, min: integer;

begin

min := 100; // минимальное значение

for i:=1 to 20 do

begin

  D[i] := random(100);

  if D[i] < min then

    min := D[i];

end;

write(min);

end.

2)

var

 B: array[1..30] of integer;

 i, sum, count: integer;

 srAr: real;

begin

 count := 0; // количество чисел больших среднего арифметического

 sum := 0; // сумма всех чисел массива

 for i := 1 to 30 do

 begin

   B[i]:= random(30) + 20;

   sum := sum + B[i];

 end;

 srAr := sum / 30; // среднее арифметическое

 

 for i := 1 to 30 do

   if B[i] > srAr then

     count := count + 1;

   

 write(count);

end.