Var
number: integer;
k: integer;
begin
repeat
write('number = ');
readln(number);
if number < 0 then k := k + 1;
until number = 0;
writeln('Кол-во отрицательных = ', k);
end.
<span>Сортировка методом пузырька (по возрастанию)
procedure MassivSort(var arr : array of Real; const N : Integer);var I: Integer; J: Integer; K: Integer; M: Real;begin for i:=1 to N do begin m:=Arr[i-1]; k:=i; for j:=i to n do begin if m>Arr[j-1] then begin m:=Arr[j-1]; k:=j; end; end; Arr[k-1]:=Arr[i-1]; Arr[i-1]:=m; end;end;
Сортировка по убыванию:
<span>procedure sort;
var i , j , tmp : integer;
begin
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] < a[j] then begin
tmp := a[i];
a[i] := a[j];
a[j] := tmp;
end<span>;</span></span>
</span>
Смотри файл целая часть и дробная переводятся отдельно
<em><u>Получим значение 20.</u></em>
Формула вычисляет максимум из четырех значений: 4х[A1], [A1]x[B3], 9, 14.
Тут запись в квадратных скобках означает "содержимое ячейки с указанным адресом".
Максимум из 4х5, 5х4, 9, 14 - это максимум из чисел 20, 20, 9, 14 и он равен 20.