Накидайте большой автоматы символами на клавиатуре !

Question

Информатика: Накидайте большой автоматы символами на клавиатуре !

AlicaWolker16 · Accepted Answer

//Блок-схема во вложении //Pascal ABC.NET v3.1 сборка 1172 Var  ma:array of array of integer;  i,j,r,n,m,s:integer; begin randomize;  readln(n);  readln(m);  setlength(ma,n);  for i:=0 to n-1 do  setlength(ma[i],m);  writeln( Matrix: );   for i:=0 to n-1 do    begin     writeln;      for j:=0 to m-1 do       begin        ma[i,j]:=random(50);        write(ma[i,j]:4);       end;    end;  writeln;  writeln( Res: );  for i:=0 to n-1 do   begin    for j:=0 to m-1 do     s:=s+ma[i,j];    writeln(i+1,...

MOGZ ответил