задача 1
program ProcArray;
procedure GetMax (A: array of Integer; var imax: Integer);
var
i: Integer;
begin
imax := Low (A);
for i := Low (A) to High (A) do
if A [i] > A [imax] then
imax := i;
end;
procedure GetMin (A: array of Integer; var imin: Integer);
var
i: Integer;
begin
imin := Low (A);
for i := Low (A) to High (A) do
if A [i] < A [imin] then
imin := i;
end;
procedure Repl (var A: array of Integer; OldValue, NewValue: Integer);
var
i: Integer;
begin
for i := Low (A) to High (A) do
if A [i] > OldValue then
A [i] := NewValue;
end;
var
A: array [0..49] of Integer;
i, imax, imin: Integer;
begin
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (21) - 10;
Write (A [i] :3, ' ');
end;
WriteLn;
GetMax (A, imax);
WriteLn ('Максимальное значение = ', A [imax]);
GetMin (A, imin);
WriteLn ('Минимальное значение = ', A [imin]);
Repl (A, 1, 0);
WriteLn ('Замена >1 на 0');
for i := Low (A) to High (A) do
Write (A [i] :3, ' ');
ReadLn;
end.
задача 2
program ProcArray1;
procedure Multi (A: array of Integer; var Prod: LongInt);
var
i: Integer;
begin
Prod := 1;
for i := Low (A) to High (A) do
Prod := Prod * A [i];
end;
procedure Repl (var A: array of Integer; OldValue, NewValue: Integer);
var
i: Integer;
begin
for i := Low (A) to High (A) do
if A [i] > OldValue then
A [i] := NewValue;
end;
var
A: array [0..29] of Integer;
i: Integer;
p: LongInt;
begin
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (3) + 1;
Write (A [i] :3, ' ');
end;
WriteLn;
Multi (A, p);
WriteLn ('Произведение = ', p);
Repl (A, 5, 1);
WriteLn ('Замена >5 на 1');
for i := Low (A) to High (A) do
Write (A [i] :3, ' ');
ReadLn;
end.
Объяснение:
Во задаче №2 при заполнении массива значениями больше 5 начинает возникать переполнение LongInt из за чего значение произведения становится отрицательным
№6 - 1,3,4,5
№7 - 1
№8 - 1,2,3,4
№9 -
=(B2-$C$1)*4
=(B3-$C$1)*4
№10 - 7,5
Объяснение:
№6- Формат записи адреса ячейки: БЦ, т.е.
Б - это буквенное обозначение столбца, а Ц - это номер строки.
№7 - Формула всегда начинается со знака равенства (=), за которым могут следовать числа, математические операторы, функции, которые значительно расширяют возможности формулы.
№8 - Смешанная ссылка содержит либо абсолютно адресуемый столбец и относительно адресуемую строку $А1, либо относительно адресуемый столбец и абсолютно адресуемую строку А$1.
№9 - $C$1 - Абсолютная ссылка (в формуле всегда ссылается на ячейку, расположенную в определённом (фиксированном) месте). Поэтому, при копировании будет изменяться только номер столбца B
№10 - В ячейке A1 число 5, в ячейке A2 число 10. Среднеарифметическое этих чисел равно (5+10)/2=7.5