Var

[email protected] в категроии Информатика, вопрос открыт 30.03.2018 в 11:54

a : array [1..10] of integer;;

i : integer;

begin

for i := 1 to 10 do

a[i] := round (random (10)) - 5;

for i := 1 to 10 do

write (a[i], ' ');

end.


Блок схему пожалуйста