Составьте программу в паскале, которая находит наименьшее из чисел кратное 3. Количество чисел не меньше 1000.

Задача содержит условие на количество проверяемых чисел. А именно: их должно быть не меньше 1000 штук.

Поэтому мы создадим массив из тысячи элементов, и так как вводить руками эти числа будет неудобно и долго по времени, мы их сгенерируем функцией.

Создаем массив на 1000 элементов:

mas : array [1 ... 1000] of integer;

Заполняем массив случайными целыми:

for i:integer : = 1 to 1000 do

begin

mas[i] : = random (1000);

Массив заполнен. Теперь проверим, делится ли каждый элемент на три. Будем использовать двойное условие:

if (mas[i] mod 3 = 0) and (mas[i] > max)

max : = mas[i];

end;