1.Дан массив, вывести с клавиатуры размерность. отрицательные числа массива разделить на

1.Дан массив, вывести с клавиатуры размерность. отрицательные числа массива разделить на 2 и вывести на экран. Пожалуйста помогите!

Задать свой вопрос
1 ответ
var
  a: array of integer;
  n, i: integer;
begin
  randomize;
  write('Введите размерность массива: ');
  readln(n);
  Setlength(a, n);
  writeln('Массив: ');
  for i := 0 to n - 1 do
   begin
    a[i] := random(21) - 10;
    write(a[i]:5);
   end;
  writeln;
  writeln('Итог разделения отрицательных частей на 2: ');
  for i := 0 to n - 1 do
  begin
    if a[i] lt; 0 then write(a[i] / 2:5)
    else write(a[i]:5)
  end;
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт