Всем привет! Нужна ваша с задачей по java. Дана матрица B[m][n]. Сформировать вектор X из наиболее удаленных по значению от числа 0 элементов каждого столбца и каждой строки матрицы. Отсортировать вектор X по убыванию за !
Маршрут екскурсії являє собою найбільш зручний шлях проходження екскурсійної групи, що сприяє розкриттю теми. Він будується в залежності від найбільш правильної для даної екскурсії послідовності огляду об'єктів, наявності майданчиків для розташування групи, необхідності забезпечення безпеки екскурсантів. Одне із завдань маршруту-сприяти найбільш повному розкриттю теми.
Основні вимоги, які повинні бути враховані укладачами маршруту, - це організація показу об'єктів в логічній послідовності і забезпечення зорової основи для розкриття теми.
У практиці екскурсійних установ існують три варіанти побудови маршрутів: хронологічний, тематичний і тематико-хронологічний.
Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i); end; end.
//1б Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if x1+x2+sqr(x1+x2)=i then writeln(i); end; end.
//2 Var i,n,a,k1,k2:integer; begin readln(n); for i:=1 to n do begin readln(a); if a<1985 then k1:=k1+1; if a>1990 then k2:=k2+1; end; writeln('Родившиеся до 1985:',k1); writeln('Родившиеся после 1990:',k2); end.
Маршрут екскурсії являє собою найбільш зручний шлях проходження екскурсійної групи, що сприяє розкриттю теми. Він будується в залежності від найбільш правильної для даної екскурсії послідовності огляду об'єктів, наявності майданчиків для розташування групи, необхідності забезпечення безпеки екскурсантів. Одне із завдань маршруту-сприяти найбільш повному розкриттю теми.
Основні вимоги, які повинні бути враховані укладачами маршруту, - це організація показу об'єктів в логічній послідовності і забезпечення зорової основи для розкриття теми.
У практиці екскурсійних установ існують три варіанти побудови маршрутів: хронологічний, тематичний і тематико-хронологічний.
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
end;
end.
//1б
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if x1+x2+sqr(x1+x2)=i then writeln(i);
end;
end.
//2
Var
i,n,a,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<1985 then k1:=k1+1;
if a>1990 then k2:=k2+1;
end;
writeln('Родившиеся до 1985:',k1);
writeln('Родившиеся после 1990:',k2);
end.