//В квадратной матрице A [n, n] определить количество строк упорядоченных //по убыванию суммы и вывести их номера. const n = 50;var A:Array[1..n, 1.. n] of integer;B:Array[1..n] of integer;m,i,j,sum, k, maxS, q:integer;beginwriteln('Введите размер матрицы m');readln(m);for i:= 1 to m dobeginfor j:= 1 to m dobeginA[i,j] := random(100)+1;write(A[i,j]:4);sum:= sum + A[i,j]end;B[i]:= sum;sum:=0;writeln;end;writeln('Сумма в строке ');for i:=1 to m dowriteln(i:2, B[i]:4);writeln('Матрица с убывающими строками');maxS := -1;for i:= 1 to m dobeginfor k:= 1 to m dobeginif B[k]> maxS then beginmaxS:= B[k]; q := k;end;end;B[q]:= 0; maxS := -1;for j:= 1 to m dobeginwrite(A[q,j]:4);end;writeln; end; end.
x:real;
begin
x:=-2;
while x<=2.001 do begin
Writeln('x=',x:4:1,' y=',5*sqr(x)-x+2:0:2);
x:=x+0.1
end
end.
Результат выполнения программы:
x=-2.0 y=24.00
x=-1.9 y=21.95
x=-1.8 y=20.00
x=-1.7 y=18.15
x=-1.6 y=16.40
x=-1.5 y=14.75
x=-1.4 y=13.20
x=-1.3 y=11.75
x=-1.2 y=10.40
x=-1.1 y=9.15
x=-1.0 y=8.00
x=-0.9 y=6.95
x=-0.8 y=6.00
x=-0.7 y=5.15
x=-0.6 y=4.40
x=-0.5 y=3.75
x=-0.4 y=3.20
x=-0.3 y=2.75
x=-0.2 y=2.40
x=-0.1 y=2.15
x= 0.0 y=2.00
x= 0.1 y=1.95
x= 0.2 y=2.00
x= 0.3 y=2.15
x= 0.4 y=2.40
x= 0.5 y=2.75
x= 0.6 y=3.20
x= 0.7 y=3.75
x= 0.8 y=4.40
x= 0.9 y=5.15
x= 1.0 y=6.00
x= 1.1 y=6.95
x= 1.2 y=8.00
x= 1.3 y=9.15
x= 1.4 y=10.40
x= 1.5 y=11.75
x= 1.6 y=13.20
x= 1.7 y=14.75
x= 1.8 y=16.40
x= 1.9 y=18.15
x= 2.0 y=20.00
//по убыванию суммы и вывести их номера.
const n = 50;var A:Array[1..n, 1.. n] of integer;B:Array[1..n] of integer;m,i,j,sum, k, maxS, q:integer;beginwriteln('Введите размер матрицы m');readln(m);for i:= 1 to m dobeginfor j:= 1 to m dobeginA[i,j] := random(100)+1;write(A[i,j]:4);sum:= sum + A[i,j]end;B[i]:= sum;sum:=0;writeln;end;writeln('Сумма в строке ');for i:=1 to m dowriteln(i:2, B[i]:4);writeln('Матрица с убывающими строками');maxS := -1;for i:= 1 to m dobeginfor k:= 1 to m dobeginif B[k]> maxS then beginmaxS:= B[k]; q := k;end;end;B[q]:= 0; maxS := -1;for j:= 1 to m dobeginwrite(A[q,j]:4);end;writeln;
end;
end.