ОЧЕНЬ СРОЧНО! ПОМОГИТЕ С ЗАДАЧЕЙ!
Заполните массив из 9 элементов целыми числами из интервала [-15;24] и выведите на экран в строку через ";".
Язык программирования - Pascal
Заполните массив из 9 элементов целыми числами из интервала [-15;24] и выведите на экран в строку через ";".
Язык программирования - Pascal
More Questions From This User See All
Answers & Comments
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do a[i]:=random(40)-15;
for i:=1 to n do write(a[i],';');
end.
Пример:
16;23;-9;-3;5;18;19;0;11;
begin
randomize;
for i := 1 to 8 do begin
n := random (39) - 15;
write (n,';');
end;
n := random (39) - 15;
write (n);
end.
Verified answer
Var n, i: integer; begin randomize;for i := 1 to 8 do begin n := random (39) - 15; write (n,';'); end; n := random (39) - 15; write (n);end.