В одномерном массиве размерности n найти количество и номера элементов, равных заданному P

0 голосов
107 просмотров

В одномерном массиве размерности n найти количество и номера элементов, равных заданному P


Информатика (16 баллов) | 107 просмотров
0

На русском языке писать?

0

да

0

а нет

0

на латинице паскалем абснет

0

Ах... "паскалем абснет"... ну ладно, я Вас за язык не тянул!

0

ну пожалуйста >.

0

>.

Дан 1 ответ
0 голосов

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -9, 9);

 a.Println;

 var p := ReadInteger('p =');

 var i := a.Indices(t -> t = p);

 Println('Найдено элементов:', i.Count);

 Print('Номера элементов:');

 i.Select(t -> t + 1).Print

end.


image
(1.6k баллов)
0

спасибо!!!! :3333

0

Пожалуйста