1) function MaxArr(a: array of integer): integer;
var i,l,ma: integer;
begin
l:=high(a);
ma:=a[0];
for i:=1 to l do
if a[i]>ma then ma:=a[i];
MaxArr:=ma;
end;
var a: array of array of integer;
i,j,l: integer;
begin
write('Введите длину матрицы: ');
readln(l);
setlength(a,l);
for i:=0 to l-1 do setlength(a[i],l);
for i:=0 to l-1 do
begin
writeln;
for j:=0 to l-1 do
begin
a[i,j]:=random(50)+1;
write(a[i,j],' ');
end;
end;
a[0,0]:=MaxArr(a[0]);
a[1,1]:=MaxArr(a[1]);
a[2,2]:=MaxArr(a[2]);
a[3,3]:=MaxArr(a[3]);
a[4,4]:=MaxArr(a[4]);
writeln;
writeln('Преобразованный массив');
for i:=0 to l-1 do
begin
writeln;
for j:=0 to l-1 do
begin
write(a[i,j],' ');
end;
end;
end.
2) function SumArr(a: array of integer): integer;
var i,l,s: integer;
begin
l:=high(a);
s:=0;
for i:=0 to l do
s:=s+a[i];
SumArr:=s;
end;
var a: array of array of integer;
i,j,n,m,s: integer;
begin
write('Введите длину матрицы N: ');
readln(n);
write('Введите длину матрицы M: ');
readln(m);
setlength(a,n);
for i:=0 to n-1 do setlength(a[i],m);
for i:=0 to n-1 do
begin
writeln;
for j:=0 to m-1 do
begin
a[i,j]:=random(50)+1;
write(a[i,j],' ');
end;
end;
s:=0;
for i:=0 to n-1 do s:=s+SumArr(a[i]);
writeln;
writeln('Сумма всех элементов матрицы равна: ',s);
end.
Program outr;
var a,b,c:real;
begin
readln(a,b,c);
writeln('a=',a,' b=',b,' c=',c);
if (a+c>b) and (a+b>c) and (c+b>a) then
begin
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
writeln('треугольник прямоугольный');
end else
writeln('треугольник построить невозможно');
<span>end.</span>
Using namespace std;
int main ()
{
SetConsoleOutputCP(1251);
cout<<"Введите три числа"<<endl;
int a,b,c;
cin>>a>>b>>c;
if ( (a<0) && (b<0) && (c<0))
{
cout<<"неотрицательных чисел нет"<<endl;
system("pause");
return 0; // дальше не выполняем, чтобы не тратить силы впустую
}
if (a>0)
cout<<a*a<<endl;
if (b>0)
cout<<b*b<<endl;
if (c>0)
cout<<c*c<<endl;
system("pause");
return 0;
}