Очень прошу помочь с заданием по информатике!

Заполнить массив из 10 элементов случайными числами в интервале [0 ... 4] и вывести номера всех элементов, равных Х.

Пример: Исходный массив: 4 0 1 2 0 1 3 4 1 0

Что ищем? 0

А[2], А[5], А[10]

Question

Информатика

Герман

12 декабря, 02:00

Очень прошу помочь с заданием по информатике!

Заполнить массив из 10 элементов случайными числами в интервале [0 ... 4] и вывести номера всех элементов, равных Х.

Пример: Исходный массив: 4 0 1 2 0 1 3 4 1 0

Что ищем? 0

А[2], А[5], А[10]

+3

Ответы (1)

Знаете ответ на вопрос?

Иваныч · Answer 1

Var

a:array [1 ... 10] of integer;

b, i, x:integer;

begin

for i:=1 to 10 do a[i]:=random (5) ;

write ('Исходный массив:') ;

for i:=1 to 10 do write (' ', a[i]) ;

writeln;

write ('Что ищем? ') ;

readln (x) ;

for i:=1 to 10 do

if a[i]=x then

begin

if b>0 then write (', ') ;

write ('A[', i,']') ;

b:=1;

end;

end.