Безотлагательно! Помогите! Написать программку в турбо паскале Заполнить массив из 10 частей

Безотлагательно! Помогите! Написать программу в турбо паскале

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

Пример:

Исходный массив:

4 0 1 2 0 1 3 1 1 0

Заранее огромное спасибо!!!!

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

var 

  a: array [1..10] of integer;  //Массив из 10 целочисленных частей

  i: integer;

begin

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

  for i:= 1 to 10 do  Наполняем массив случайными числами от 0 до 4 и печатаем его

  begin

    a[i]:= random(4);

    write(a[i], '  ');

  end;

  writeln;  //Перевод на новейшую строку

  write('Одинаковые соседние элементы:  ');

  for i:= 1 to 9 do  //Печатаем одинаковые примыкающие элементы

    if a[i] = a[i + 1] then write('a[', i, '] = a[', i + 1, '],  ');

  writeln;  Перевод на новейшую строчку, чтоб при следующем запуске программки информация выводилась с новейшей строки

end. 

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


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

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

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

Войти на сайт