дан массив вывести на экран индексы тех элементов значения которых равны числу м
5-9 класс
|
Program index;
Uses crt;
Var A: array [1..10] of integer;
i,m: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
Writeln ('Введите число m');
Readln (m);
for i:=1 to 10 do
begin
if a[i]=m then
Write (i,' ');
end;
readln;
readkey;
end.
Другие вопросы из категории
Спасибо заранее :)
k=1,"Привет,первоклассник";при k=4:"Привет,четвероклассник".
Помогите пожалуйста .
1.От чего зависит выбор вида модели?
2.Что такое информационная модель объекта?
3.Какие Вы знаете классификации моделей?
4.Что является целью создания информационной модели?
5.Что лежит в основе информационного моделирования?
6.Приведите примеры учебных моделей?
7.Подтвердите на примерах справедливость следующий высказываний:
а)одному объекту может соответствовать несколько моделей.
б)Одна модель может соответствовать нескольким объектам.
Читайте также
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
1) Заменить все чётные элементы на их номера. Вывести на экран исходный и новый массив.
2) Заменить все чётные элементы, стоящие на нечетных местах, на их номера.
увеличит на 10.Преобразованный массив вывести на экран в строчку через запятую