Заполнить массив случайными числами и вывести номера всех элементов, равных X - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

4)Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных X. Если кому интересно, вот рабочая, программа домашнего производства. Задания брал из презентации по основам массивов Паскаль( на сайте Полякова можно найти)

Решение задачи: «Заполнить массив случайными числами и вывести номера всех элементов, равных X»

textual
Листинг программы
uses arrays;
 
begin
  Randomize;
  var a := CreateRandomIntegerArray(10, 0, 4);
  PrintLn(a);
  var X := ReadInteger();
  writeln(string.Join('', a.Select((v, i) -> v = X ? Format('A[{0}] = {1}' + newLine, i, X) : '').ToArray()));
end.

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы