Блок-схемы

[24na7Mypka]

Program N679;
begin
var n:=ReadInteger('Количество строк/столбцов в матрицах:');
Writeln('*** Исходная матрица A ***');
Randomize;
var a:=MatrGen(n,n,(i,j)->(Random(101)-50)*0.5);
a.Println(9,2); Writeln(9*a.ColCount*'-');
Writeln('*** Исходная матрица B ***');
var b:=MatrGen(n,n,(i,j)->(Random(101)-50)*0.5);
b.Println(9,2); Writeln(9*a.ColCount*'-');
var v:=b.Rows.Select(r->r.Max).ToArray;
for var i:=0 to n-1 do
for var j:=0 to n-1 do
a[i,j]*=v[i];
Writeln('*** Результирующая матрица A ***');
a.Println(9,2)
end.



Program N692;
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
Randomize;
var a:=MatrGen(n,n,(i,j)->(Random(101)-50)*0.5);
a.Println(9,2); Writeln(9*a.ColCount*'-');
var max:=real.MinValue;
for var i:=0 to n-1 do
for var j:=i to n-1 do
if a[i,j]>max then max:=a[i,j];
Writeln('Найдено максимальное значение ',max:0:1)
end.




Program N694;
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
var a:=MatrFill(n,n,0);
a[(n-1) div 2, (n-1) div 2]:=1;
a.Println(2)
end.





Program N758;
Begin
var x3:=Power(ReadReal('x='),3);
var (eps,s,k):=(1e-6,0.0,1);
repeat
var p:=1/(x3*k*k);
if p<eps then break;
s+=p; k+=1 until false;
Writeln(s)
End.






Program N136;
var n: integer;
s: real;
begin
n:=ReadInteger('n=');
s:=ReadSeqReal('Введите '+n+' чисел:',n).Select(x->Abs(x)).Sum;
Writeln('Сумма модулей равна ',s);
end.





Program N201;
Begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Min =',a.Where((x,i)->i.isEven).Min)
End.





Program N769;
Begin
var(n,r):=(0,0.0);
while true do begin
n:=0;
var s:=ReadSeqRealWhile('Вводите:',x->begin n+=1;
Result:=x>=0 end).Sum;
if n>1 then begin if s>0 then r+=1/s end
else
if n=1 then break
end;
if r<>0 then Writeln('R=',1/r)
else Writeln('Сопротивление цепи бесконечно')
End.

{Пример. Вводите: 5.2/2.7/-1 или 6/3.5/9.2/8/1.4/-2 и тд.}

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

[alexcoder]

24na7Mypka, обращайтесь e-mail: informatik101@mail.ru vk.com/alexcoder1

[Magakudesnik]

Пишите.
почта: magakudesnik@gmail.com
скайп: daniil.nazarov

[JIeIIIa]

Если еще актуально, пишите: stealth(собака)bigmir.net
Сразу указывайте на когда нужна работа и предполагаемый бюджет.