Садовник собрал со своего сада n (23856) кг урожая. Исходя из полученных данных, напишите программы для следующих заданий:Садовник собрал со своего сада n (23856) кг урожая. Исходя из полученных
данных, напишите программы для следующих заданий:
1) Выразите урожай садовода в тоннах, центнерах и килограммах;
2) Если в каждый ящик помещается по 25 кг винограда, сколько потребуется
ящиков? быстрее
n = 3;
m = 3;
var
i, j: integer;
a, b: array[1..n, 1..m] of integer;
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(20) - 10;
write(a[i, j]:3, ' ');
end;
writeln;
end;
writeln;
for i := 1 to n do
begin
for j := 1 to m do
begin
if ((i + j) mod 2 = 1) and (a[i, j] < 0) then
a[i, j] := sqr(a[i, j]);
write(a[i, j]:4, ' ');
end;
writeln;
end;
end.