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

Question

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

---

Comments

ЯП?

---

Извиняюсь, понял

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.

Объяснение:

Comments

Не правильно, должно выводиться 5 и 2 в конце

---

Условие задачи читали?

---

к тому же, добавить строчку в конец кода не так уже и слонжо. for i := 1 to 50 do writeln(a[i]);