Pascal ABC. Дан одномерный массив. Необходимо удалить из него отрицательные эл-ты. Размер...

Question

Pascal ABC. Дан одномерный массив. Необходимо удалить из него отрицательные эл-ты. Размер массива задаётся в начале программы.

Comments

массив рандоный или задается с клавиатуры...удалить из просто так нельзя..нужно будет заменить просто на 0 или еще что то .. на каком языке...вообщем уточни задание.

---

массив двумерный или нет??

---

размер массива какой?

---

пиши сразу а то я как бы не могу по 10 раз переделывать

Answer 1

Program mass;

uses
  crt;

var
  a: array [1..10] of integer;
  i: integer;

begin
  randomize;
  writeln('Исходдный массив: ');
  for i := 1 to 10 do
  begin
    a[i] := random(20) - 10;
    write(' ', a[i], ' ');
  end;
  Writeln;
  writeln('После замены отрицательных чисел на 0:');
  for i := 1 to 10 do
  begin
    if a[i] < 0 then a[i] := 0;
    write(' ', a[i], ' ');
  end;
  writeln;
end.
ща переделаю не увидел что ті изменила задание