В одномерном массиве, состоящем из п вещественных элементов, вычислить:

@ImOk · Регистрация: 14.12.2009

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

1. Сжать массив, удалив из него все элементы, величина которых находится в ин¬тервале [а, b]. Освободившиеся в конце массива элементы заполнить нулями.

@Inadequate · 19.03.2010, 08:49

Pascal

uses
  Crt;
const
  N = 10;
  a = 3;
  b = 6;
var
  Arr: array [1..N] of integer;
  i,j: integer;
begin
  ClrScr;
  Randomize;
  WriteLn('Array A:');
  for i := 1 to N do
  begin
    Arr[i] := Random(8) - 4;
    Write(Arr[i], ' ');
  end;
  WriteLn;
  for i := N downto 1 do
    if Arr[i] in [a..b] then
    begin
      for j := i to N - 1 do
        Arr[j] := Arr[j + 1];
      Arr[N] := 0;
    end;
  WriteLn('Result: ');
  for i := 1 to N do
    Write(Arr[i], ' ');
  ReadLn;
end.

@ImOk 0 / 0 / 0 Регистрация: 14.12.2009 Сообщений: 9
		1
	В одномерном массиве, состоящем из п вещественных элементов, вычислить: 19.03.2010, 08:03. Показов 1552. Ответов 1 Метки нет (Все метки) 1. Сжать массив, удалив из него все элементы, величина которых находится в ин¬тервале [а, b]. Освободившиеся в конце массива элементы заполнить нулями. 0

	19.03.2010, 08:49

В одномерном массиве, состоящем из п вещественных элементов, вычислить:

Решение