Составить программу, которая выясняет количество элементов в заданном массиве, отличающихся от минимального на 5. оформить в виде программы в паскале. , .

Барабарабара береберебере

///Pascal abc.
Программа прикреплена к ответу

program Find33;

uses  SysUtils;

const

 L = 100;    // количество чисел, можно изменить на любое значение

var

 i, j, c, cnt: Integer;

 A: array [1..L] of Integer;  // массив для сохранения чисел

 s: string;

begin

 WriteLn ('Массив трехзначных чисел: ');  // вывод на экран сообщения

 Randomize;                               // инициализация датчика случайных чисел

 for i := 1 to L do begin

   A [i] := 100 + Random (900);           // заполняем массив случайными трехзначными числами

   Write (A [i], ' ');                    // выводим их все на дисплей

 end;

 cnt := 0;                                // счетчик чисел с двумя тройками

 WriteLn ('Найдены числа:');

 for i := 1 to L do begin                 // цикл перебора всех элементов массива

   s := IntToStr (A [i]);                 // трехзначное число преобразуем с символьную строку

   c := 0;                                // счетчик троек в числе

   for j := 1 to Length (s) do begin      // цикл перебора всех символов строки

     if s [j] = '3' then begin            // если тройка, то инкремент счетчика троек

       c := c + 1;

     end;

   end;

   if c >= 2 then begin                    // если в числе хотя бы две тройки, то вывод числа и инкремент счетчика чисел

     cnt := cnt + 1;

     WriteLn (A [i]);

   end;

 end;

 WriteLn ('Количество чисел, у которых хотя бы две тройки = ', cnt);  // вывод результата

 ReadLn;                                   // ждать нажатия Enter

end.

Объяснение: комментарии в программе

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
  Font.Size:=Trunc(Font.Size*1.5); // размер шрифта 150%
  Font.Color:=clBlack; // цвет шрифта
  Window.Clear(clWhite); // залить окно цветом
  Brush.Color:=clWhite; // фон текста
  Font.Name:='Arial'; // имя шрифта
  Writeln('Arial font');
  Font.Name:='Times'; // имя шрифта
  Writeln('Times font');
  Font.Name:='Verdana'; // имя шрифта
  Writeln('Verdana font');
  Font.Name:='Broadway'; // имя шрифта
  Writeln('Broadway font');
end.