Массив из 15 чисел задан датчиком случайных чисел на интервале (-18;37) заменить нулями все отрицательные элементы
Ответы
Ответ дал:
0
Ответ:
var f:array[1..15] of integer;
i:integer;
begin
randomize;
for i:=1 to 15 do
begin
f[i]:=random(-18,37);
if f[i]<0 then f[i]:=0;
write(f[i],' ');
end;
end.
Объяснение:
34 0 0 4 25 4 0 0 25 0 36 4 0 36 25
Ответ дал:
0
===== PascalABC.NET =====
begin
var a := ArrRandom(15, -18, 37);
a.Println;
a.Transform(p -> p < 0 ? 0 : p);
a.Print
end.
Приложения:
![](https://st.uroker.com/files/f4c/f4c94c0ebaeea10002b0c919e2338edc.jpg)
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад