Напишите код программы, используя цикл whіlе, согласно блок-схеме на языке Python: Критерий оценивания:
Записывает код програамы на языке Python
Дескриптор:
определяет переменные и их тип- ;
записывает начальные значения переменных- ;
записывает условие- ;
записывает формулы- ;
выводит результат-
Начало
0
x, y - цел
r=X
9 = 0
нет
r>=y
да
r=r-y
q= q +1
4340
Конец
Активация Windows
Чтобы активировать Windows
Параметры"​

Вот: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const   n=5; var   a: array[1..n,1..n] of integer;   i,j,s: integer; begin   s: =0;   randomize;   for i: =1 to n do     begin       for j: =1 to n do         begin           a[i,j]: =random(10);           write(a[i,j]: 4);           if (i+j) mod 3=0 then             s: =s+a[i,j];         end;       writeln;     end;   writeln('s=',s); end.

В Делфи не проверял, но должна работать. Если что, пиши.
const
  n=5;
  m=6;
var
   a:array[1..n,1..m]of integer;
   i,j,s,p,min,max:integer;
begin
s:=0;
p:=0;
for i:=1 to n do
  for j:=1 to m do
    a[i,j]:=random(10);
min:=a[1,1];
max:=min;
for i:=1 to n do
  begin
  for j:=1 to m do
    begin
    write(a[i,j]:3);
    if a[i,j]>max then max:=a[i,j];
    if a[i,j]<min then min:=a[i,j];
    end;
  writeln
  end;
for i:=1 to n do
  begin
  if p>2 then break;
  for j:=1 to m do
    begin
    if p>2 then break;
    if a[i,j]=max then p:=p+1;
    if a[i,j]=min then   p:=p+2;
    if p>0 then s:=s+a[i,j];
    end;
  end;
writeln('S=',s)    
end.