Задание: Сделать Базу данных выбрав следующие темы: 1) Тур фирма

2) Деканат

3) Группа

4) Библиотека​

Program day;
var 
a: array[1..30] of integer; 
b, s, i, min: integer;
begin 
min := 999; 
Randomize; 
for i := 1 to 30 do   begin   
a[i] := random(9, -3);   
s := s + a[i];   
Write(a[i]:3); 
end; 
Writeln; 
Writeln('Ниже нуля '); 
for i := 1 to 30 do   begin    if a[i] > 0 then Write(i,'-го ');   
end;   
if a[i] = 0 then b := b + 1; 
Writeln; 
for i := 1 to 30 do    
if a[i] < min then min := a[i];   
Writeln('Самая низкая температура - ', min); 
Writeln('Средняя температура ноября ', s / 30);
end.

***

Объяснение:

f(11) 11>0 поэтому вызываем g(10)

g(10) 10>1 поэтому вызываем f(7)

f(7) 7>0 поэтому вызываем g(6)

g(6) 6>1 поэтому вызываем f(3)

f(3) 3>0 поэтому вызываем g(2)

g(2) 2>1 поэтому вызываем f(-1)

f(-1) -1 < 0 поэтому выходим из функции

Далее последовательный выход из вех всех функций.

При каждом вызове функции g() на экран печатается звездочка. Было 3 вызова g(10) g(6) g(2), поэтому на кране будет  три звездочки подряд (***).

 

Не забывайте нажать " ", поставить оценку и, если ответ удовлетворил, то выберите его как "Лучший"  

Бодрого настроения и добра!  

Успехов в учебе!