Напишите программу, которая заполняет массив N=10 - вопрос №1081139510 от Juliavaishle1 29.05.2022 05:41

Question

Информатика: Напишите программу, которая заполняет массив N=10 элементов случайными числами в диапозоне[10,50], выводит его на экран, а затем находит индексы всех элементов,равных введенному числу X. Программа должна вывести ответ не найден , если в массиве таких элементов нет.

Juliavaishle1 · Answer

begin

var A := ArrRandom(10, 10, 50);

A.Println;

var X := ReadInteger();

var ind := A.Indices(p -> p = X);

if ind.Count > 0 then print(ind) else print('таких нет');

end.

Объяснение: