паскаль.найти индекс элемента массива

[belka1]

Найти индекс элемента, который равен числу А

А=6

Длинна массива = 10

тип элементов массива : real

[Манжосов Денис :)]

Делаешь проверку на элементы массива, какой их них равен числу A, с использованием for to do. Заносишь результат в любую объявленную переменную. Думай.

[начинающий кодер]

for i:=1 to 10 do
if b[i]:=a then writeln(i);

[Манжосов Денис :)]

Только не двоеточие равно в проверке. Спешишь...

[ИринаForeve]

Вариант:

program indm;
uses crt;
var
k,i,a:integer;
m:array[1..10] of real;
begin
 clrscr;
 write('vvedite 10 4isel massiva => ');{ввод массива}
 for k:=1 to 10 do read(m[k]);
 a:=6;
 for k:=1 to 10 do if m[k]=a then i:=k;
 write('massiv =>');{}
 for k:=1 to 10 do write(m[k]:7:2);{вывод массива, можно убрать}
 writeln;
 if i<>0 then writeln('poziciya elementa massiva = 6 =>',i:4){элемент найден}
 else write('elementa=6 v massive net');{элемента нет}
 readkey;
end.

А может быть много элементов равных 6, тогда подправить нужно

[belka1]

я от программирования, к сожалению, очень далека =/
не могли бы помочь с написанием всей программки?
заранее спасибо =)

[belka1]

спасибо огромное=)