Question

Задача по паскалю, помогите пожалуйста
ДАЮ 50 БАЛЛОВ

Answer 1

Ответ:

Если я правильно понял условие, то так:

program Array;

var a: array[1..50] of integer;

var i: integer;

begin

   randomize;

   for i := 1 to 50 do begin

       a[i] := random(100);

   end;

   

   for i := 1 to 50 do begin

       if a[i] mod 2 = 0 then begin

           a[i] := 2;

       end

       else a[i] := 5;

   end;

       

end.

Объяснение: