Заполнить линейный массив из 10 элементов случайными числами от -50 до

Заполнить линейный массив из 10 частей случайными числами от -50 до 50. Поменять все отрицательные его элементы на 0. Pascal ABC

Задать свой вопрос
1 ответ
Var
  a: array [1..10] of integer;
  i: byte;
 
begin
randomize;
writeln(' *** Начальный массив ***');
for i := 1 to 10 do
begin
  a[i] := random(101) - 50;
  write(a[i], ' ');
end;

writeln(13+' *** Модифицированный массив ***');
for i := 1 to 10 do
begin
  if a[i] lt; 0 then a[i] := 0;
  write(a[i], ' ');
end;
 
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт