Question

Pascal ABC. Дан массив целых чисел из 100 элементов, заполненных случайным образом числами из промежутка [-33; 33]. Удалить из него все элементы, в которых есть цифра 5.

Answer 1

var

 a: array of shortint;

 i,j:integer;

begin

 setlength(a,100);

 i:=0;

 j:=0;

 while i<=99-j do

   begin

     a[i]:=random(67)-33;

     write(a[i]:3);

     if (abs(a[i]) div 10 <> 5) and (abs(a[i]) mod 10 <> 5) then

       inc(i)

         else inc(j);

   end;

 setlength(a,100-j);

 writeln;

 writeln;

 for i:=0 to 99-j do

   write(a[i]:3);

end.  

Answer 2

Для удаления элементов из массива Pascal ABC, которые содержат цифру 5, вы можете выполнить следующие шаги:

1. Создайте массив целых чисел из 100 элементов, заполненных случайными числами из интервала [-33; 33].

2. Пройдитесь по массиву и для каждого элемента выполните следующие действия:

   • Преобразуйте текущий элемент в строку (str).
   • Проверьте, содержит ли строка символ '5'. Если да, пропустите этот элемент, иначе добавьте его в новый массив.

3. На выходе у вас будет новый массив, в котором удалены все элементы, содержащие цифру 5.

Вот пример кода на Pascal ABC:

pascalCopy code
program RemoveElementsWith5;

var
  originalArray: array[1..100] of integer;
  newArray: array of integer;
  i, j, num: integer;
  strNum: string;

begin
  // Заполните массив случайными числами из [-33; 33].
  Randomize;
  for i := 1 to 100 do
    originalArray[i] := Random(67) - 33;

  // Инициализируйте новый массив.
  SetLength(newArray, 0);

  // Переберите элементы и удалите те, которые содержат '5'.
  for i := 1 to 100 do
  begin
    strNum := IntToStr(originalArray[i]);
    if Pos('5', strNum) = 0 then
    begin
      // Элемент не содержит '5', добавьте его в новый массив.
      SetLength(newArray, Length(newArray) + 1);
      newArray[Length(newArray)] := originalArray[i];
    end;
  end;

  // Выведите новый массив без элементов, содержащих '5'.
  for i := 1 to Length(newArray) do
    Write(newArray[i], ' ');
    
  Readln;
end.

Этот код создает новый массив newArray, в котором удалены все элементы, содержащие цифру 5.