Ответ: Задача № 1)Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать.Задача №2)uses crt;var m:array[1..100,1..100] of integer; i,i1,j,str,stb,temp:integer;beginclrscr;writeln(‘Пожалуйста введите число строк массива: ‘); readln(str);writeln(‘Пожалуйста введите число Столбцов массива: ‘); readln(stb);clrscr;writeln(‘Массиа из ‘,str,’ строк, и из ‘,stb,’ столбцов успешно создан!’);writeln;for i:=1 to str dobegin 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]<m[i1,j] then begin temp:=m[i1,i]; m[i1,i]:=m[i1,j]; m[i1,j]:=temp;end;writeln;for i:=1 to str dobegin for j:=1 to stb do begin write(m[i,j]:3,’ ‘); end; writeln;end;readkey;end.Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело
Дана матрица размера M × N. Найти
минимальный среди элементов тех строк, которые упорядочены либо по
возрастанию, либо по убыванию. Если упорядоченные строки в матрице отсутствуют,
то вывести 0.
Дана матрица размера M × N. Упорядочить ее
строки так, чтобы их минимальные элементы образовывали убывающую
последовательность.
Помогите решить в Pascal ABC. Хотя бы одну — Правильный ответ на вопрос найдете ниже
24.12.2019 · 1