| Vodila | Дата: Среда, 29.02.2012, 16:18 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 4
Статус: Offline
| дана матрица В(6х6). Найти среднее арифметическое элементов , лежащих выше главной диагонали. если это четное число - осортировать строки, иначе - столбцы.
program zzz;
uses crt;
const n=6; m=6;
var b:array[1..n,1..m] of integer;
i,j,c,sum,kol:integer;
sr:integer;
BEGIN clrscr; randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
b[i,j]:=random(100)-50;
write(b[i,j]:3,' ');
if i<j then
begin
sum:=sum+b[i,j];
kol:=kol+1;
end;
end;
writeln;
end;
sr:=round(sum/kol);
writeln('srednee arifmeticheskoe = ',sr);
writeln;
if sr mod 2 = 0 then
begin
writeln('sortirovka po strokam');
writeln;
for i:=1 to n do
begin
j:=1;
repeat
if b[i,j]>b[i,j+1] then
begin
c:=b[i,j];
b[i,j]:=b[i,j+1];
b[i,j+1]:=c;
if j>1 then j:=j-1;
end
else j:=j+1;
until j>=m;
end;
end
else
begin
writeln('sortirovka po stolbikam');
writeln;
for j:=1 to m do
begin
i:=1;
repeat
if b[i,j]>b[i+1,j] then
begin
c:=b[i,j];
b[i,j]:=b[i+1,j];
b[i+1,j]:=c;
if i>1 then i:=i-1;
end
else i:=i+1;
until i>=n;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(b[i,j]:3,' ');
writeln;
writeln;
end;
readkey;
END.
|
| |
|
|
| diamFC | Дата: Среда, 29.02.2012, 20:21 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| еще одна блок-схема от diamFC
|
| |
|
|
Программа для построения БЛОК-СХЕМ!!!
