задачи должны быть выполнены в паскале Составить программу, которая запрашивает пароль (двузначное число + 4 символа) до тех пор, пока он не будет правильно введен. Верный пароль должен быть задан в виде константы.
Var x1,y1,x2,y2,x,y,x3,y3,x4,y4:integer; begin read(x1,y1,x2,y2,x,y); x3:=x1; y3:=y2; x4:=x2; y4:=y1; if (x<x1) and (y<=y3) and (y>=y1) then writeln('W') else if (x<x1) and (y>y3) then writeln('NW') else if (x>=x1) and (x<=x2) and (y>y3) then writeln('N') else if (x>x2) and (y>y3) then writeln('NE') else if (x>x2) and (y<=y2) and (y>=y4) then writeln('E') else if (x>x2) and (y<y4) then writeln('SE') else if (x<=x4) and (x>=x1) and (y<y4) then writeln('S') else if (x<x1) and (y<y1) then writeln('SW'); end.
using namespace std;
int main(){int a, n, max, min;int max_i, max_k, min_i, min_k;//ввод размера массиваcin>>a;cin>>n;
//объявление массиваint** a = new int* [a]; for(int i = 0; i < n; i++) { a[i] = new int [a]; }
//ввод первого массива for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { cin>>a[i][k]; } } //Инициализация max, min; max=a[0][0]; min=a[0][0]; //поиск максимума for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { if(max<a[i][k]) { max=a[i][k]; max_i=i; max_k=k; } } } //поиск минимума for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { if(min>a[i][k]) { min=a[i][k]; min_i=i; min_k=k; } } }
//Max and Min меняются местамиswap(a[max_i][max_k],a[min_i][min_k]);getch();return 0;}