Вот тебе решение первой .
program p1;
uses crt;
var a:array[1..10,1..10] of integer;
i,j,n,max,min,s:integer;
begin
read(N);
for i:=1 to N do begin
For j:=1 to N do begin
a[i,j]:=random (21) -10 ;
write(a[i,j]:5);
end;
writeln;
end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to N do begin
If max<a[i,i] then begin
max:=a[i,i];
end;
If min>a[i,i] then begin
min:=a[i,i];
end;
end;
s:=max+min;
writeln;
write(s);
end.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"RUS");
const int n=10;
bool yes=false;
double a, temp;
cin>>a;
for (int i=0;i<(n-1);i++)
{
temp=a;
cin>>a;
if (a<=temp){yes=false;break;}
else yes=true;
}
if (yes)
cout<<"Ряд возрастающий";
else cout<<"Ряд не возрастающий";
system("pause");
return 0;
}
Var x,y:integer;
begin
x:=25;
y:=-20;
while x*y<0 do begin
x:=x-5;
y:=y+2
end;
writeln('x=',x,' y=',y);
end.
// x = 0
// y = -10
#include<iostream>
#include<cstdlib>
#include<ctime>
using namespace std;
int main()
{
<span> srand(time(NULL));
</span><span> int B[50][100];</span>
<span> for(int i = 0; i < 50; i++)</span><span>
{
</span><span> for(int j = 0; j < 100; j++)
</span><span> {</span><span>
B[i][j] = rand() % 100;</span><span>
cout << B[i][j] << ' ';
</span><span> }
</span><span> cout << '\n' << endl;
</span><span> }
</span><span>}</span>
Uses crt;
var x1,y1,x2,y2:integer;
dlina:real;
begin
read(x1,y1);
read(x2,y2);
dlina:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(dlina);
end.