Дан массив целых чисел: удалить из него все числа от 3 до 5

@IIMRXII · Регистрация: 25.10.2018

Author24 — интернет-сервис помощи студентам

1) Дан массив целых чисел (N=10), заполненный случайным образом числами из промежутка [0..10].удалить из него все числа от 3 до 5.

@ZX Spectrum-128 · 01.11.2018, 11:28

Взято отсюда: Удалить из массива, элементы в записи которых есть цифра 5

Pascal

const
  n = 10;
 
var
  a: array[1..n] of integer;
  i, j, k: integer;
 
begin
  writeln('Исходный массив: ');
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i]:4);
  end;
  writeln;
  k := 0;
  i := 1;
  while i <= n do
    if (a[i] >= 3) and (a[i] <= 5) then
      if i = n then
        inc(k)
      else
      begin
        for j := i to n - 1 do
          a[j] := a[j + 1];
        inc(k);
      end
    else
      inc(i);
  writeln('Массив после удаления: ');
  for i := 1 to n - k do
    write(a[i]:4);
end.

@IIMRXII 0 / 0 / 0 Регистрация: 25.10.2018 Сообщений: 5
		1
	Дан массив целых чисел: удалить из него все числа от 3 до 5 01.11.2018, 05:58. Показов 3358. Ответов 1 Метки нет (Все метки) 1) Дан массив целых чисел (N=10), заполненный случайным образом числами из промежутка [0..10].удалить из него все числа от 3 до 5. 0

	01.11.2018, 11:28

Опции темы