Безотлагательно! Помогите! Написать программку в турбо паскале Заполнить массив из 10 частей
Безотлагательно! Помогите! Написать программу в турбо паскале
Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и найти, есть ли в нем одинаковые примыкающие элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.