Предмет: Информатика,
автор: еремян
Перевести из языка Си++ в Паскаль
#include
#include
#include
#include
#include
using namespace std;
int main(){
srand(time(NULL));
int n;
cin»n;
int mass[n][n];
int mass1[n][n];
for(int i=0; i
for(int j=0; j
mass[i][j]=rand()%10*pow(-1,rand()%2);
cout«setw(4)«mass[i][j]«' ';
}
cout«endl;
}
cout«endl;
for(int i=0;i
for(int j=0; j
mass1[j][n-1-i]=mass[i][j];
}
}
for(int i=0; i
for(int j=0; j
cout«setw(4)«mass1[i][j];
if(mass1[i][j]>0){
mass1[i][j]=1;
}
}
cout«endl;
}
cout«endl;
for(int i=0; i
for(int j=0; j
cout«setw(4)«mass1[i][j];
}
cout«endl;
}
return 0;
}
еремян:
программу
Ответы
Автор ответа:
1
// PascalABC.NET 3.6
begin
var n:= ReadInteger;
var a := MatrRandom(n, n, -99, 99);
var b := new integer[n,n];
a.Println;
Writeln;
for var i := 0 to n-1 do
b.SetCol(n - i - 1, a.Row(i));
b.Transform(t -> t > 0 ? 1 : t);
a := b;
a.Println
end.
Приложения:
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Українська мова,
автор: 0508761801
Предмет: Математика,
автор: faina55
Предмет: Литература,
автор: Sashaposk
Предмет: Физика,
автор: muradtov