Регистрация
TuyaraPotapova
13.06.2022 18:00
Информатика
Есть ответ 👍

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

102
116
Посмотреть ответы 1

Ответы на вопрос:

Dimka14228
Dimka14228
4,4(42 оценок)
Вроде ничего не будет

Популярно: Информатика