Задача № 1)
Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать.
Задача №2)
uses crt;
var m:array[1..100,1..100] of integer;
i,i1,j,str,stb,temp:integer;
begin
clrscr;
writeln(Пожалуйста введите число строк массива: ); readln(str);
writeln(Пожалуйста введите число Столбцов массива: ); readln(stb);
clrscr;
writeln(Массиа из ,str, строк, и из ,stb, столбцов успешно создан!);
writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
m[i,j]:=random(80)+1;
write(m[i,j]:3, );
end;
writeln;
end;
writeln;
writeln( отсортирован по убыванию);
writeln;
for i1:=1 to str do
for i:=1 to str-1 do
for j:=i+1 to str do
if m[i1,i]
for i:=1 to str do
begin
for j:=1 to stb do
begin
write(m[i,j]:3, );
end;
writeln;
end;
readkey;
end.
Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.