var
A: array[1..100, 1..100] of integer;
i, j,n,m: integer;
begin
Writeln('Введите N and M');
Read(n,m);
Randomize;
Writeln('Исходная матрица');
for i := 1 to N do
begin
for j := 1 to M do
begin
a[i, j] := Random(-100, 100);
write(A[i, j]:5);
end;
writeln;
end;
Writeln('Измененная матрица');
for i := 1 to N do
begin
for j := 1 to M do
begin
if A[i, j] > 0 then a[i, j] := 1;
if A[i, j] < 0 then a[i, j] := 0;
Write(a[i, j]:5);
end;
Writeln;
end;
end.
Задача 1:
var a,r: double;
begin
writeln('Введите сторону квадрата a');
readln(a);
writeln('Введите радиус круга r');
readln(r);
writeln('Площадь фигуры: ',a*a-Pi*r*r);
end.
Задача 2:
var a, b, c, D, x1, x2: real;
begin
writeln('Введите A, B, C');
readln(a,b,c);
D:=b*b-4*a*c;
if D>=0 then
begin
if (sqrt(D)=0) then
begin
x1:=-b/(2*a);
write('Один корень ',x1:0:2);
end
else
begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
write('Первый корень: ',x1:0:2,' Второй корень: ',x2:0:2);
end
end
else write('Корней нет');
end.
Я не занеь вабы вкуак д ела ьб есби я занла кака ето кделаьб я би сказал как эито делаьб так что я не знаю как это делать когда узгаю скажу