Var
max, //максимальный элемент
min, //минимальный элемент
sum, //сумма всех чисел
n, //количество чисел
j: integer;
Begin
write('Введите количество чисел: ');
readln(n);
write('Введите числа: ');
readln(j);
max:=j; min:=j; sum:=j; //1-й элемент это мин, макс, и сумма одновременно
for var i:=2 to n do begin
readln(j);
if(j > max) then max:=j
else if(j < min) then min:=j;
sum:= sum+j;
end;
sum:= round(sum/n)*min-max; //результирующая формула
if sum < 0 then writeln('Результат: ', -sum)//умножаем на -1 если результат<0
else writeln('Результат: ', sum);
End.
Решение показано во вложении
<span>Локальная (локально-вычислительная) сеть объединяет
компьютеры одной организации, расположенные в пределах одного или нескольких
соседних зданий.</span>
Ответ:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
var n:byte;
procedure vvod(var a:mas;c:char);
var i:byte;
begin
writeln('Исходный массив ',c);
for i:=1 to n do
begin
a[i]:=-5+15*random;
write(a[i]:5:1)
end;
writeln
end;
procedure poloz(var a:mas;k:real;c:char);
var i:byte;
begin
writeln('Измененный массив ',c);
for i:=1 to n do
begin
if a[i]>0 then a[i]:=a[i]+k;
write(a[i]:5:1)
end;
writeln
end;
var a,b:mas;
k:real;
begin
randomize;
repeat
write('Размер массивов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
write('Введите число для изменения положительных k=');
readln(k);
vvod(a,'A');
poloz(a,-k,'A');
vvod(b,'B');
poloz(b,k,'B');
end.
5. Формат чисел с плавающей точкой основывается на экспоненциальной форме записи чисел, в которой любое число может быть представлено в следующей форме:
А = m • q^p
где:
m - мантисса числа, которая для однозначности представления чисел с плавающей точкой должна иметь нормализованную форму, а именно представлять собой правильную дробь с цифрой после запятой, отличной от нуля;
q — основание системы счисления;
p — порядок числа.
568,1810 = 56,81810 * 10¹ = 5,681810 * 10² = 0,5681810 * 10³
3. 192₁₀ = 11000000₂
Перевод числа из десятичной в двоичную систему во вложении.