Составьте программку,которая наполняет массив А:[1..10] случайными целыми числами в спектре

Составьте программу,которая заполняет массив А:[1..10] случайными целыми числами в спектре от -10 до 10 и выводит на экран начальный массив и отрицательные элементы массива

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

program dz;

uses crt;


var mac: array [1..10] of integer;

b,c: integer;

begin

For b:=1 to 10 do

begin

mac[c]:= Randomize (-10-(10)+1)+(10);

If mac[c]lt;0 then

write (mac[c],', ');

end;

Writeln (mac);

end.


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


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

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

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

Войти на сайт