(код паскаль)задана матрица m(n,m). упорядочить по убыванию элементы каждого столбца матрицы . примечание: для простоты матрицу заполнять случайными числами в интервале [0,100], используя функции random и randomize.
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.
В обоих случаях вы не указали какие числа, я использовал промежуток от -64000 до 64000 1)var a,b:array[1..101] of longint;i,n,k:integer;beginfor i:=1 to 100 do a[i]:=random(128000)-64000;for i:=1 to 100 do beginif a[i]>0 then begin b[i]:=a[i];inc(k);end;if a[i]<0 then begin while a[i]>0 doa[i]:=a[i+1];end;end;for i:=1 to k doif b[i]<>0 thenwriteln(b[i]);end. 2)var a:array[1..50] of integer;i,k:integer;beginfor i:=1 to 50 do a[i]:=random(64000)+1;//for i:=1 to 50 do if a[i] mod 3 =0 then writeln(a[i]); если хотите посмотреть на эти числа убрать //for i:=1 to 50 do if a[i] mod 3 =0 then k:=k+a[i];write(k);end.
Var question : array [1..3] of string; awns,mark: integer; begin writeln('Вопрос 1'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа'); readln(awns); // проверяем ответ if awns = 1 then mark := mark + 1; writeln('Вопрос 2'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа'); readln(awns); // проверяем ответ if awns = 2 then mark := mark + 1; writeln('Вопрос 3'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа'); readln(awns); // проверяем ответ if awns = 3 then mark := mark + 1; // выводим результат writeln(' Вы ответили на ' + mark + ' вопросов из 3'); 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.
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.