Дан массив вывести на экран индексы тех элементов значения которых равны числу м

1

Ответы и объяснения

Лучший Ответ!
2014-04-03T08:29:34+00:00
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.
можешь выбрать другой тип переменных и другое количество элементов.