Заполнить массив из 10 элементов случайными числами в интервале
5-9 класс
|
[0..4]и определить, есть ли в нем одинаковые соседние элементы. Пример: Исходный массив: 4 0 1 2 0 1 3 1 1 0 Ответ: есть
uses crt;
const N=10;
var a:array [1..N] of integer;
x,k:integer;
begin
for x:=1 to N do
begin
a[x]:=random(5);
writeln('a[',x,']:',a[x]);
end;
for x:=1 to N-1 do
if a[x]=a[x+1] then inc(k);
if k>0 then writeln('Есть одинаковые соседние элементы.')
else writeln('Одинаковых соседних элементов нет.');
end.
любые числа от 0 до 4?
Другие вопросы из категории
сообщение : 77 105 99 107 101 121 32 77 111 117 115 101
Читайте также
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
-4 10 3 -5 4 0 1 -10 8 -6
1. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре.
2. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину по возрастанию, а вторую- по убыванию. Здесь решать лучше методом выбора.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
максимальный элемент и его номер. Отмечу как лучшее!