hackerprincess

26.02.2023 03:06 •  Информатика

Нарисуйте Блок-Схему, по данной программе Паскаль. Программа:
var a:array[1..n,1..n] of integer;
i,j,mn,s:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=1+random(9);
write(a[i,j]:2);
if i*j=1 then mn:=a[i,j]
else if a[i,j] 2*mn)then s:=s+a[i,j];
writeln('Сумма элементов кратных 3 и больших минимального в 2 раза(',2*mn,')=',s)
end.

i,j,mn,s:integer;

begin

randomize;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=1+random(9);

write(a[i,j]:2);

if i*j=1 then mn:=a[i,j]

else if a[i,j] 2*mn)then s:=s+a[i,j];

writeln('Сумма элементов кратных 3 и больших минимального в 2 раза(',2*mn,')=',s)

end.