Поиск элемента в одномерном массиве из 12 элементов, который равен заранее заданному некоторому числу.(на языке Паскаль)
5-9 класс
|
const
n=12;
var
a:array [1..n] of integer;
p,i:integer;
begin
for i:=1 to n do
begin
writeln('Введите элемент №',i);
readln(a[i]);
end;
writeln('Введите число для поиска');
readln(p);
for i:=1 to n do
if a[i]=p then writeln('элемент ',p,' находится на позиции №',i);
end.
как заполнять массив?
Рандом или с клавиатуры ?
Другие вопросы из категории
фальшивой монеты
Используется только одна подпрограмма-функция паскаль.
Читайте также
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
элемента исходного массива, в полученном массиве вывести элементы стоящие на нечетных местах. Напишите, пожалуйста программу на языке Pascal
2.Сформировать одномерный массив из 30 элементов (задаются ГСЧ-рандомно) из интервала -3..3. Массив вывести.Найти номер положительных элементов и их сумму чисел.