Sub abc()
Dim i As Integer, aMax As Integer, aMin As Integer, n As Integer
n = 15
ReDim a(1 To n) As Integer
For i = 1 To n
a(i) = InputBox("Введи A[" & Str(i) & " ] как целое")
Next i
aMax = a(1)
aMin = a(1)
For i = 2 To n
If a(i) > aMax Then aMax = a(i)
If a(i) < aMin Then aMin = a(i)
Next i
MsgBox "Сумма max+min =" & Str(aMax + aMin) & _
" их разность =" & Str(aMax - aMin)
End Sub
Var
a, b: integer;
begin
readln(a, b);
if a * b < 0 then {если числа разных знаков}
writeln(2 * a, ' ', 2 * b)
else if a > 0 then begin{иначе одного знака и больше нуля}
if a > b then
writeln((a + b) / 2, ' ', b)
else
writeln(a, ' ', (a + b) / 2)
end
else begin
if a > b then
writeln(a, ' ', -b)
else
writeln(-a, ' ', b)
end;
end.
== для равенства, >= "больше", <= "меньше", != для неравенства. Иногда вместо != ставят <>
НА ПРИМЕРЕ В ЭТОЙ ЗАДАЧИ
program z1;
uses crt;
const
st1='ма';
st2='ма';
var
str:string;
i,k:integer;
begin
write('введите строку: ');readln(str);
for i:=1 to length(str) do
if (st1=copy(str,i,2)) or (st2=copy(str,i,2)) then
k:=k+1;
writeln(k);
end.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
<u>Пример</u>
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90