Заполнить массив из 15 частей числами из промежутка от -10 до

Заполнить массив из 15 частей числами из промежутка от -10 до 10 вывести в строчку и повторно вывести в строчку, заменив положительные элементы на число 0.

Задать свой вопрос
Анна Крауклит
Написать программку в паскаль
1 ответ
Uses crt;
var a: array[0..15] of integer;
i:integer;
begin
 for i:=1 to 15 do  begin
   write(random(21)-10,' ');
  end;
  end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт