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.
1) Что такое интернет? —Всемирная система объединённых компьютерных сетей для хранения, обработки и передачи информации.
2) Что означает слово провайдер?
Компания, поставщик каких-либо услуг.
3) Что такое электронная почта?
Технология и служба по пересылке и получению электронных сообщений (называемых «письма», «электронные письма» или «сообщения») между пользователями компьютерной сети (в том числе — Интернета).
4) В чем заключается функция браузера?
Главная функция браузера – это открытие веб-страниц сайтов.
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.
1) Что такое интернет? —Всемирная система объединённых компьютерных сетей для хранения, обработки и передачи информации.
2) Что означает слово провайдер?
Компания, поставщик каких-либо услуг.
3) Что такое электронная почта?
Технология и служба по пересылке и получению электронных сообщений (называемых «письма», «электронные письма» или «сообщения») между пользователями компьютерной сети (в том числе — Интернета).
4) В чем заключается функция браузера?
Главная функция браузера – это открытие веб-страниц сайтов.