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

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

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

                    Листинг программы
                
 
                        
                          
                    
program str40n4;
Var A: Array[1..10] of Byte; B :Array[1..10] of Byte;
Var i,x,k : Integer;
begin
For i:= 1 to 10 do begin
A[i]:= Random (0,4);
Writeln ('A {',i,'} = ', A[i]);
end;
i:=1;
Writeln ('Что ищем?');
Read( x);
repeat
While (i<=10) and ( A[i] <> x) do i:= i+1;
k:= k+ 1;
If i<= 10 then begin
B[i]:= A[i];
Writeln('A {', i,'} = ', x);
A[i]:=A[i]-1;
end;
until k=10;
end

Решение задачи: «Заполнить массив случайными числами и вывести номера всех элементов, равных 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы