Yerbolat Beisenbek
was last seen 21 October at 12:28
Алма-Ата, Казахстан
/
свободен
var a:array[1..100, 1..100]of integer;
b,c:array[1..100] of integer;
n,m,k,z,i,j,x1,x2,y1,y2,max,min:
Unsubscribe from irrelevant news
To unsubscribe from another user's news, click the settings icon in this post and select the necessary option.
Все
Guestbook
More
Yerbolat Beisenbek
прокомментировал
15 March 2016 at 13:37
смишно
6 comments
Yerbolat Beisenbek
прокомментировал
15 March 2016 at 13:35
Yerbolat Beisenbek
wrote
status.html
mne v lagere vse ponravilos' osobenno ona)))
Yerbolat Beisenbek
wrote
status.html
var a:array[1..100, 1..100]of integer;
b,c:array[1..100] of integer;
n,m,k,z,i,j,x1,x2,y1,y2,max,min: integer;
begin
{1}read(n, m);
{2}randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(100);
{3}for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
writeln;
{4}for i:=1 to n do
for j:= 1 to m do
b[i]:=b[i]+a[i,j];
{5}for j:=1 to m do
for i:=1 to n do
c[j]:=c[j]+a[i,j];
{6}max:=-32000; min:=32000;
for i:=1 to n do
for j:=1 to m do
begin
if (a[i,
b,c:array[1..100] of integer;
n,m,k,z,i,j,x1,x2,y1,y2,m
begin
{1}read(n, m);
{2}randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(100);
{3}for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
writeln;
{4}for i:=1 to n do
for j:= 1 to m do
b[i]:=b[i]+a[i,j];
{5}for j:=1 to m do
for i:=1 to n do
c[j]:=c[j]+a[i,j];
{6}max:=-32000; min:=32000;
for i:=1 to n do
for j:=1 to m do
begin
if (a[i,
для : еБАТЬ!!! ты знаешь что это, это же блять АЛГАРИТМ!!! ПЗДЦ я то думал хоть Алгоритм -__-
12 July 2014 at 6:45
Нравится
Uploading
Error loading page. Retry in 15 seconds.
Error loading page. Retry in 5 seconds.
Error loading page. Retry in 5 seconds.