Напиши программу в рыдала пожалуйста: Сформируйте одномерный массив из 20 целых

Напиши программу в рыдала пожалуйста:
Сформируйте одномерный массив из 20 целых чисел великих 10, но наименьших 20
случайным образом и замените все его
отрицательные элементы на
обратные по знаку.

Задать свой вопрос
1 ответ
Program Project1;

var m:array [0..19] of integer; i:integer;

begin
  for i:=0 to 19 do begin
    m[i]:=20-Random(30);
    if m[i]lt;0 then m[i]:=m[i]*-1;
    writeln(m[i]);
  end;

  readln;
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт