Опубликовано 03.01.2018 по предмету Информатика от Гость

Разработать программу на языке паскаль: 1) из массивов вещественных чисел А и В сформировать массив С, записав в него элементы массивов А и В, которые не содержат "семерок" в восьмеричном представлении 2) в матрице целых чисел А (n.n) упорядочить те строки , в которых диагональные элементы не содержат семерок. ПОМОГИТЕ РЕШИТЬ ЛИБО 1 ЛИБО 2 ЗАДАЧУ

Ответ оставил Гость

Вторая задача, Паскаль АВС

Program Robiertmusin;
uses crt;
const n = 15;
type
MyArray = array [1..n,1..n] of integer;

procedure ArrayOutput(A: MyArray);
var i,j: integer;
begin
for i := 1 to n do
    begin
       for j:= 1 to n do
         write(A[i,j]:4, );
       writeln;
    end;
writeln;
end;

procedure RowSort(var A: MyArray; Nom: integer);
var i, j, temp: integer;
begin
for i := 1 to n-1 do
    for j := i+1 to n do
      if A[nom,i]>A[nom,j] then begin
        temp:=A[nom,i];
        A[nom,i]:=A[nom,j];
        A[nom,j]:=temp;
      end;
writeln(nom,-я строка упорядочена);
end;

var
mass:MyArray;
i,j:integer;
begin
writeln(В матрице целых чисел А (n*n) программа упорядочивает те строки,);   writeln(в которых диагональные элементы не содержат семерок);
{Создаём начальный массив и выводим его}
randomize;
for i := 1 to n do
     for j:= 1 to n do
         mass[i,j]:=random(20);
ArrayOutput(mass);
{Просматриваем строки}
for i := 1 to n do
    begin
       if (mass[i,i]<>7) and (mass[n-i+1,n-i+1]<>7) then RowSort(mass, i);
    end;
{Выводим итоговый массив}
writeln(Упорядоченный массив: );
ArrayOutput(mass);
end.