Сформировать массив из 10 элементов случайным образом от -50 до 50.в паскале)
людииишкии,помогите,пожалуйста,жизнь решается:33

2

Ответы и объяснения

2013-12-20T15:43:11+04:00
Program pr;
var a: array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
a[i]:=-50+random(50+50+1);
end.
2013-12-20T15:51:41+04:00
Var a, b, n, i:integer;
s :array [1..10] of integer;
begin
read (n);{Размер массива}
for i:=1 to n do 
 begin
 s[i]:=-50+random(99);
 write (s[i],' ');
 end;
end.

P.S. Надеюсь на благодарность и лучший ответ.