Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных X.
Пример работы программы:
Исходный массив:
4 0 1 2 0 1 3 4 1 0
Что ищем? 0
A[2], A[5], A[10]

Ответ оставил Гость

Var a:array[1..10] of integer;
i,x:integer;
begin
write(Исходный массив: );
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i], );
end;
WRITELN;
write(Что ищем?: );
readln (x);
for i:=1 to 10 do if x=a[i] then write(A[,i,] );
end.