задача на массивы в паскалезанести массив из 12 частей ряд случайных

Задача на массивы в паскале

занести массив из 12 частей ряд случайных чисел из [-7:7] не считая 0

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

//Компилятор мне выдаёт ошибку, но покажи учителю хоть что-то, чем совершенно ничего.

Program One;

var

 i: integer;

 a: integer;

 mas: array [-7..7] of integer;

begin

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

  for i:=-7 to 7 do

   begin

    a[i]:= random(-7,7);

    write(a[i]:7);

   end;

  writeln();

  for i:=-7 to 7 do

   if a[i]=7 then a[i]:=1;

  writeln('Перевоплощенный массив:');

   for i:=-7 to 7 do

    write(a[i]:7);

end.

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


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

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

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

Войти на сайт