Информатика, опубликовано 09.01.2019 16:01
Даны две матрицы X(5,5) и Y(4,4). Найти сумму отрицательных элементов матриц и сравнить, у какой из матриц она больше.
Нужно сделать программу на языке Паскаль через массив.
Среда разработки Pascal ABCNET.
Ответ оставил: Гость
Var x: array [1..5, 1..5] of real; y: array [1..4, 1..4] of real; i, j: byte; sumx, sumy: real; begin sumx : = 0; sumy : = 0; writeln('массив x': 28); for i : = 1 to 5 do begin for j : = 1 to 5 do begin x[i, j] : = random*40-20; if x[i, j] < 0 then sumx : = sumx + x[i, j]; write(x[i, j]: 9: 4); end; writeln; end; writeln; writeln('массив y': 28); for i : = 1 to 4 do begin for j : = 1 to 4 do begin y[i, j] : = random*40-20; if y[i, j] < 0 then sumy : = sumy + y[i, j]; write(y[i, j]: 9: 4); end; writeln; end; writeln; writeln('сумма отрицательных массива x = ', sumx: 9: 4); writeln('сумма отрицательных массива y = ', sumy: 9: 4); if sumx > sumy then writeln('сумма отрицательных x - больше.') else if sumx < sumy then writeln('сумма отрицательных y - больше.') else writeln('сумма отрицательных x и y равны.') end.
Ответ оставил: Гость
Var n,m,a,b,c,d,k:longint;
function NOD(x,y:longint):longint;
var c:longint;
begin
while y>0 do
begin
c:=x mod y;
x:=y;
y:=c;
end;
NOD:=x;
end;
Function NoK(x,y:longint):longint;
begin
NOK:=(x*y) div NOD(x,y);
end;
begin
readln(a,b,c,d);
n:=NoK(b,d);
a:=a*(n div b);
c:=c*(n div d);
m:=a+c;
k:=nod(a,c);
write(m div k, ,n div k);
end
function NOD(x,y:longint):longint;
var c:longint;
begin
while y>0 do
begin
c:=x mod y;
x:=y;
y:=c;
end;
NOD:=x;
end;
Function NoK(x,y:longint):longint;
begin
NOK:=(x*y) div NOD(x,y);
end;
begin
readln(a,b,c,d);
n:=NoK(b,d);
a:=a*(n div b);
c:=c*(n div d);
m:=a+c;
k:=nod(a,c);
write(m div k, ,n div k);
end
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01