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

Rusaklala0330 18 февр. 2020 г., 18:37:03

Program Program1 ;

Var

a : array [1.

10] of integer ;

i : integer ;

rez : boolean ;

begin

randomize ;

write('Массив : ') ;

for i : = 1 to 10 do

begin

a[i] : = random(5) ;

write(a[i], ', ') ;

end ;

rez : = false ;

for i : = 1 to 10 do

begin

if (i> ; 1) and (a[i] = a[i - 1]) then rez : = true ;

if (i< ; 10) and (a[i] = a[i + 1]) then rez : = true ;

end ;

if rez then writeln(' Есть одинаковые соседние элементы') else

writeln(' Нет одинаковых соседних элементов') ;

end.

Неважно12345 8 авг. 2020 г., 19:23:40 | 5 - 9 классы

Заполнить массив из 10 элементов случайными числами в интервале [0?

Заполнить массив из 10 элементов случайными числами в интервале [0.

4]и определить, есть ли в нем одинаковые соседние элементы.

Пример : Исходный массив : 4 0 1 2 0 1 3 1 1 0 Ответ : есть.

Skumborevskumbo 8 июл. 2020 г., 18:14:15 | 10 - 11 классы

Заполнить массив случайными числами в интервале [2 ; - 2] и подсчитать количество положительных элементов?

Заполнить массив случайными числами в интервале [2 ; - 2] и подсчитать количество положительных элементов.

Dalena81 23 февр. 2020 г., 08:20:01 | 10 - 11 классы

Помогите пожалуйста) заполнить массив из 10 элементов случайными числами в интервале [ - 10, 10] и подсчитать сумму всех отрицательных элементов?

Помогите пожалуйста) заполнить массив из 10 элементов случайными числами в интервале [ - 10, 10] и подсчитать сумму всех отрицательных элементов.

Myka231158 21 окт. 2020 г., 04:21:09 | 10 - 11 классы

Паскаль?

Паскаль.

1. Заполнить массив из 10 элементов случайными числами в интервале [ - 10.

10] и найти сумму элементов больших числа к введенного с клавиатуры.

Anelle78 22 сент. 2020 г., 03:33:40 | 10 - 11 классы

Заполнить массив из 10 элементов случайными числами в интервале [ - 10, 10] и подсчитать сумму всех отрицательных элементов?

Заполнить массив из 10 элементов случайными числами в интервале [ - 10, 10] и подсчитать сумму всех отрицательных элементов.

KennyFury 7 янв. 2020 г., 10:46:25 | 10 - 11 классы

Заполните массив случайными числами в интервале [0, 1000] и выведите номера двух соседних элементов, произведение которых наибольшее?

Заполните массив случайными числами в интервале [0, 1000] и выведите номера двух соседних элементов, произведение которых наибольшее.

Darkfoolmoon226 5 февр. 2020 г., 15:48:49 | 10 - 11 классы

Помогите пожалуйста) заполнить массив из 10 элементов случайными числами в интервале [10, 12] и найти длинну самой длинной последовательности стоящих рядом одинаковых элементов?

Помогите пожалуйста) заполнить массив из 10 элементов случайными числами в интервале [10, 12] и найти длинну самой длинной последовательности стоящих рядом одинаковых элементов.

Qwertyuij 24 мар. 2020 г., 11:31:47 | 5 - 9 классы

Заполнить массив 10 элементов случайными буквами Паскаль?

Заполнить массив 10 элементов случайными буквами Паскаль.

Vanyavano 25 сент. 2020 г., 20:48:40 | 5 - 9 классы

Паскаль АВСЗаполнить массив из 10 элементов случайными числами в интервале [ - 10?

Паскаль АВС

Заполнить массив из 10 элементов случайными числами в интервале [ - 10.

10] и найти в нем максимальный и минимальный элемент и их номера.

Задачу решить без всяких сокращений, на уровне 8 класса.

Команды использовать как показано во вложении.

22021977 29 дек. 2020 г., 06:05:16 | 5 - 9 классы

Написать программу по нахождению максимального элемента если элементы массива заполнены случайными числами в интервале от - 50 до 50?

Написать программу по нахождению максимального элемента если элементы массива заполнены случайными числами в интервале от - 50 до 50.

(Паскаль).