Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных Х. Пример: исходный массив: 4 0 1 2 0 1
10-11 класс
|
3 4 1 0 что ищем? 0 А[2], А[5], А[10]
народ срочно нужно, помогите плиз
var a:array[0..10] of integer;
i,x:integer;
Begin
read(x);
randomize;
for i := 1 to 10 do begin
a[i]:=random(4);
if a[i]=x then writeln('a[',i,']');
end;
End.
Другие вопросы из категории
а то я не умею этот pascal
арифметическое положительных и четных чисел из N введенных. Значение N вводится с клавиатуры.
Нужно сделать в системе КуМир тремя способами (1) Для (2) При (3) Пока
Читайте также
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!
Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальные a[4]=10, a[7]=8
массив:
14 25 13 30 76 58 32 11 41 97
Результат:
30 11 41 32 13 14 25 76 97 58
говорили про какой-то метод пузырька. хелп ми Т_т
p.s. паскаль abc
ребят ,если честно - срочно...
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы