Помогите с блок схемой, пожалуйста.

[email protected] в категроии Информатика, вопрос открыт 30.06.2018 в 20:12

Вот задача:
const m=5;
n=7;
var a:array[1..m,1..n] of real;
i,j,k:integer;
s:real;
begin
randomize;
writeln('Массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=10*random;
write(a[i,j]:5:2);
end;
writeln;
end;
write('Введите число k равное сумме индексов массива k=');
read(k);
if(k<2)or(k>m+n) then writeln('Недопустимая величина')
else
begin
s:=0;
for i:=1 to m do
for j:=1 to n do
if i+j=k then s:=s+a[i,j];
write('Сумма элементов, чья сумма индексов=',k,'=',s:0:2);
end;
end.