Задача по паскалю, помогите пожалуйста
ДАЮ 50 БАЛЛОВ
Приложения:
![](https://st.uroker.com/files/153/1538449b9b3df747c1efe1c0a50abf18.png)
TheBoossya:
ЯП?
Ответы
Ответ дал:
0
Ответ:
Если я правильно понял условие, то так:
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.
Объяснение:
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад
7 лет назад