Question

Заполнить с помощью генератора случайных чисел массив из 10 элементов числами от 2 до 5. Заменить в нем на 0 все элементы, равные 3

PascalABC

Answer 1

var

 arr: array[0..9] of integer;

 i:integer;

begin

 for i := 0 to 9 do

 begin

   arr[i]:=random(3) + 2;

 end;

 writeln(arr);

 for i := 0 to 9 do

   if arr[i]=3 then

     arr[i]:=0;

 writeln(arr);

end.