Mishanka87 M Mishanka87 Регистрация 17 Май 2013 Сообщения 78 Репутация 0 Спасибо 0 Монет 0 25 Июн 2018 #1 Информатика Массивы
толян Т толян Регистрация 28 Май 2013 Сообщения 77 Репутация 0 Спасибо 0 Монет 0 25 Июн 2018 #2 Детский лепет какой-то... Ты ВНЯТНО написать можешь, чего тебе нужно? АОТ: Type TRange = -20..20; var x: array[1..30]of TRange; ... Позитивный голос 0
Детский лепет какой-то... Ты ВНЯТНО написать можешь, чего тебе нужно? АОТ: Type TRange = -20..20; var x: array[1..30]of TRange; ...
Алексей174 А Алексей174 Регистрация 12 Июл 2013 Сообщения 79 Репутация 0 Спасибо 0 Монет 0 25 Июн 2018 #3 var a :array[1..30] of integer; i:integer; begin Randomize; for i:=1 to 30 do a:= Random(-20,20); for i:=1 to 30 do writeln(a); end. Позитивный голос 0
var a :array[1..30] of integer; i:integer; begin Randomize; for i:=1 to 30 do a:= Random(-20,20); for i:=1 to 30 do writeln(a); end.
выавыапыв В выавыапыв Регистрация 2 Ноя 2013 Сообщения 74 Репутация 0 Спасибо 0 Монет 0 25 Июн 2018 #4 Чета как-то... ну.. пусть будет 20$ Позитивный голос 0
qwerty123543 Q qwerty123543 Регистрация 21 Июл 2013 Сообщения 78 Репутация 0 Спасибо 0 Монет 0 25 Июн 2018 #5 uses crt; var a :array[1..30] of integer; i:integer; begin Randomize; for i:=1 to 30 do begin a:= Random(41)-20; write(a:4); end end. Позитивный голос 0
uses crt; var a :array[1..30] of integer; i:integer; begin Randomize; for i:=1 to 30 do begin a:= Random(41)-20; write(a:4); end end.
kare2030 K kare2030 Регистрация 15 Окт 2013 Сообщения 91 Репутация 0 Спасибо 0 Монет 0 25 Июн 2018 #6 блин сложна Позитивный голос 0