Задайте массив из 10 частей с подмогою генератора случайных чисел и

Задайте массив из 10 частей с поддержкою генератора случайных чисел и поменяйте из знак всем нечетным элементам массива на противоположный. Выведите на экран начальный и измененный массив. (в паскале)

Задать свой вопрос
1 ответ
Var a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(-20,20);
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
if a[i]lt;0 then write(-1*a[i],' ')
else write(a[i],' ');
end.
Арсений Огоньян
Паскаль пишет, что функция random с параметрами обозначенных типов не найдена (5 строчка) :С
Anton Ladich
турбо либо фри паскаль у вас? замените на a[i]:=ramdom(41)-20;
Полинка Соломицкая
Спасибо огромное!
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт