Срочно! Помогите пожалуста! Нужно написать програмный код в турбо паскале! Заранее ОГРОМНОЕ СПАСИБО!!

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

Пример:

Исходный массив:

4 0 1 2 0 1 3 4 1 0

Что ищем? 0

A[2], A[5], A[10]

1

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

  • Kitsu
  • почетный грамотей
2012-11-25T19:30:46+04:00

var a:array[1..10]of integer;
i,x:integer;
begin
readln(x);
for i:=1 to 10 do begin
a[i]:=random(5);
if a[i]=x then writeln('a[',i,'] ');
end;
end.