uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.
uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.
Проверено на Паскаль АВС
Program Dafnochka;
uses crt;
var
r,sum: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
begin
write("Ввод:") ;
readln (r);
sum:=sum+r;
k:=k+1;
end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Среднее значение равно ',sum/(k-1));
end.
