в массиве с 15 действительных чисел определить номера элементов равных 4
10-11 класс
|
const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
end.
Другие вопросы из категории
Написать программу, которая использует подпрограммы и выведит на экран наименьшее расстояние между двумя точками.
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Создать массив случайных чисел (1-10), ввести с клавиатуры некоторое значение и определить номер элемента, равна этому значению, если таких элементов не существует, то вывести не существует.
средний элемент больше своих "соседей", т. е. предшествующего и последующего. В случае положительного ответа определить номера элементов первой из таких троек.
о том, что в массиве положительных элементов нет.
прошу вас решите!