irkaShpagina

15.11.2021 14:25 •  Информатика

Нарисуйте Блок-Схему, по данной программе Паскаль. Программа:
const n=6;
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];
write('Сумма элементов кратных 3 и больших минимального в 2 раза(',2*mn,')=',s)
end.