Срочно! Помогите! Написать программу в турбо паскале Заполнить массив…

Question

Срочно! Помогите! Написать программу в турбо паскале Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и определить, есть ли в нем одинаковые соседние элементы.

Answer 1

53

happosai

03 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: