Составить программку,которая:Отрицательные элементы массива сменяет на 0

Составить программку,которая:
Отрицательные элементы массива сменяет на 0

Задать свой вопрос
1 ответ
Var
  a: array of integer;
  i, n: integer;

begin
  readln(n);
  setlength(a, n);
  for i := 0 to n - 1 do
    read(a[i]);
  for i := 0 to n - 1 do
  begin
    if a[i] lt; 0 then a[i] := 0;
    write(a[i], ' ');
  end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт