Дан массив целых чисел из 15 элементов,заполнненый случайным образом числами из...

Question

Дан массив целых чисел из 15 элементов,заполнненый случайным образом числами из промежутка [-20,50] Вывести все элементы,в записи которых есть цифра 5 или 7.

Answer 1

// Листинг программы и скриншот результата в приложениях.

const
    max_v = 15;
    m1 = -20;
    m2 = 50;
   
var i,j:byte;
    v:array [1..max_v] of integer;
    a,b:integer;

// начальное заполнение массива
procedure randomArray(tx:string);
var i:byte;
begin
  writeln(tx);
  randomize();
 
  for i:=1 to max_v do begin
    v[i]:=random(m1,m2);
    write(v[i]:6);
  end;
  writeln('');
  writeln('');
end;

begin
  randomArray('Начальный массив');
  writeln('Вывести все элементы,в записи которых есть цифра 5 или 7');
 
  for i:=1 to max_v do begin
    //десятки числа
    a:=v[i] div 10;
    //единицы числа
    b:=v[i] mod 10;
    if (a=7) or (a=5) or (b=7) or (b=5)
    then
      writeln(v[i]);
  end;
   
end.

---