Question

Введите массив из 20 чисел, заполните его случайными числами от 0 до 5. Замените все нули на число 9 турбо паскаль

Answer 1

program foo;

const

 n = 20;

 

var

 a: array[1..n] of integer;

 i: integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(6);

   Write(a[i], ' ')

 end;

 Writeln;

 for i := 1 to n do

 begin

   if a[i] = 0 then

     a[i] := 9;

   Write(a[i], ' ')

 end;

end.