дан массив случайных чисел в диапазоне от -10 до 100 заменить чётные элементы нулем
Answers & Comments
Veter0k
Program name;const n=10;var a:array [1..10] of integer;i:integer;beginfor i:=1 to n doa[i]:=random(110)-10;for i:=1 to n doif a[i]mod 2=1 then a[i]:=0;end.
0 votes Thanks 0
satanEast
Надо что бы program begin и end было, я болел много и просто всю информатику не знаю, щас думаю что делать, и конспектов нет
Answers & Comments