На экран вывести индексы всех элементов массива с заданным значением - Pascal ABC

Формулировка задачи:

5. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Задайте возможность поиска элемента массива следующим образом: пользователь вводит с клавиатуры значение элемента, на экран выводятся индексы всех элементов массива с таким значением.

Код к задаче: «На экран вывести индексы всех элементов массива с заданным значением - Pascal ABC»

textual
uses crt;
const N=1000;
var a:array [1..N] of integer; i,b,c:integer;
begin
writeln('введите, сколько чисел вы хотите ввести');
readln(b);
for i:=1 to b do begin
readln(a[i]);
end;
writeln('введите число для поиска');
readln(c);
for i:=1 to b do
if a[i]=c then write(i,' ');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ