Const
n = 10;
m = 10;
type
Matrix = array[1..n, 1..m] of integer;
procedure EnterMas(var Mas: Matrix);
var i, j: integer;
begin
randomize;
for i := 1 to n do
for j := 1 to m do
Mas[i, j] := random(100);
end;
procedure GiveMas(var Mas: Matrix);
var i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
write(Mas[i, j], ' ');
end;
writeln;
end;
end;
function SumStroki(Mas: Matrix; i, k: integer): integer;
var
j, sum: integer;
begin
sum := 0;
for j := 1 to m do
Sum := Sum + Mas[i, j];
SumStroki := sum - k;
end;
function Element(var Mas: Matrix): integer;
var
i, j, count: integer;
begin
count := 0;
for i := 1 to n do
for j := 1 to m do
if Mas[i, j] > SumStroki(Mas, i, Mas[i, j]) then inc(count);
Element := count;
end;
var Mas: Matrix;
Sum, Max: integer;
begin
EnterMas(Mas);
GiveMas(Mas);
writeln('Кол-во особых элементов ', Element(Mas));
end.
Если в паскале
uses crt;
var v:integer;
begin
writeln('Введи свой возвраст');
read(v);
if v>17 writeln('Я с тобой дружу');
else writeln('Я с тобой не дружу');
end.
Т.к. в 1 ед свеклы 14% сахара, то составим пропорцию
= Где x - кол-во сахара с 1ГА
кг сахара с 1ГАЧтобы найти кол-во гектар надо необходимую массу сахара поделить на массу с 1 гектара.
Допустим надо найти сколько гектар (n) надо для сбора x кг сахара:
n=
Находишь свой файл на диске и правой кнопкой мыши перетаскиваешь. у тебя вылазит менюшка, в ней выбираешь "создать ярлык"
<span>Вместо значков импликации порядок действий.
Сначала выполняются действия 1, порядок выполнения не важен,
затем действия 2, затем действие 3.
(A 2 (B 1 C)) 3 ((A 1 B) 2 (A 1 C))</span>