Ввести одномерный массив из 12 целых чисел с помощью генератора случайных

Ввести одномерный массив из 12 целых чисел с помощью генератора случайных чисел (числа в диапазоне [-10;10] и поменять отрицательные элементы числом 1 (организовать вывод начального и приобретенного в итоге подмены массивов).

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

const n=12;

var a:array[1..n] of integer;

i:integer;

begin

write(' Начальный массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write (a[i]:3,' ')

end;

writeln;

writeln;

write('Получённый массив: ');

for i:=1 to n do

begin

if a[i]lt;0 then a[i]:=1;

write (a[i]:3,' ')

end

end.

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


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

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

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

Войти на сайт