Question

Массив А состоящий из 15 элементов заполняется с клавиатуры. Проверить есть ли в данном массиве элементы равные заданному числу b? вывести на экран порядковый номер таких элементов.

Answer 1

program zadacha;vara: array[1..15] of integer;i,b: integer;beginwriteln('vvedite 15 chisel');for i:=1 to 15 do read(a[i]);writeln('vvedite chislo b');readln(b);for i:=1 to 15 do beginif a[i]=b then write('N ',i,'  ');end;end.