Program mas; uses crt; var B: array [1..9] of integer; i: integer; Begin clrscr; randomize; for i:=1 to 9 do if ((i mod 2)=0) then B(i):=0 else B(i):=random(100)-100; End. постройте пожалуйста блок-схему. Очень срочно!
Program mas;
uses crt;
var B: array [1..9] of integer;
i: integer;
Begin
clrscr;
randomize;
for i:=1 to 9 do if ((i mod 2)=0) then B(i):=0 else B(i):=random(100)-100;
End.
постройте пожалуйста блок-схему. Очень срочно!
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы