Предмет: Информатика, автор: еремян

Перевести из языка Си++ в Паскаль
#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;
}


еремян: программу
еремян: Минутку сейчас)
еремян: Я сейчас ещё один вопрос сделаю с картинкой этой программы
еремян: Задайте квадратный массив с положительными и отрицательными числами (n*n). Поверните его на 90 градусов вправо и замените в заданном массиве все положительные элементы на 1.
еремян: Спасибо за понимание

Ответы

Автор ответа: BobbyFresnel
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