Программа по информатике 9 класс нужно составить блок-схему данной программы

Const

N = 5;

Var

A,B:array[1..N] of integer;

i,j:integer;

Begin

j:=0;

Write('Массив A(',N,'):');

For i:= 1 to N do

Begin

A[i]:=random(N);

Write(' ',A[i]);

if A[i] mod 2 = 0 then

Begin

j:=j+1;

B[j]:=i;

End;

End;

WriteLn;

Write('Массив B(',j,'):');

For i:= 1 to j do

Write(' ',B[i])

End.

svetlana1968bup0c083    1   16.02.2020 12:20    0