Напишите программу паскаль ! в последовательности целых чисел найдите минимальное число и количество его повторений

Var

 Ch, n, Min, kMin: integer;

Begin

 Write('Введите кол-во чисел последовательности: ');

 ReadLn(n);

 

 Min := 0;

 kMin := 0;

 

 WriteLn('Введите целые числа в кол-ве ', n, ' штук:');

 For n := 1 to n do

 Begin

   Read(Ch);

   if (Ch < Min) or (kMin = 0) then

   Begin

     Min := Ch;

     kMin := 1;

   End

   else if (Ch = Min) then

     kMin := kMin + 1;

 End;

 

 WriteLn('Минимальное число: ', Min);

 WriteLn('Кол-во минимальный чисел: ', kMin);

End.

1- 2 сигнал  азбуки - где? на этапе кодирования - нет. график функции может быть дискретным, не уточнили, какая функция имеется ввиду.

2-4

3- архиваторы и антивирусы -сервисные программы, сервисные - часть системных

4- командный пр-р, остальные - прикладные

5- СУБД - системы программирования, однако без СУБД нельзя выполнить вход в систему. беда, если MS sql упадет на сервере

6- 4

7-4

8-1

9-2

10- 2,3,4. см таблицу истинноости для И

11- 1

12 =0

13 2

14-2

15-1

16- 4,

17-2

18-1

19 -1. хотя  эмм. .в систему программирования входит кодовый редактор  и компиллятор.. или интерпретатор

20-1

21 - хотят 4. хотя на деле все, кроме 2

1) Задаешь проверку: введеные числа меньше 7?

Если да - сохраняешь это число в переменную.

В конце все переменные, которые записывались - умножаешь. Все пустые переменные были равны 1, т.е. если ты их умножишь - все останется ок.

2) Задаешь проверку: введеные числа при делении на 100 > 0?

Если да - счетчик + 1.

3) Задаешь проверку: введеные числа > 10?

Если да - 1счетчик + 1

Если нет - 2счетчик + 1

Сравниваешь счетсчики.

4) Задаешь проверку: введеные числа > 12 и < 40?

Если да: проверяешь, кратно ли число 7 (число % 7 == 0)

Делаешь выводы. Выводишь результат

Не за что. Удачи!