Считываем сколько чисел получим(или сами решаем чему равно n), делаем цикл на считывание каждого, ищем в них мин и макс.
VAR N, i:integer;
k, min, max:real;
begin
readln(N);
for i:=1 to N do begin
readln(k);
if i=1 then begin min:=k; max:=k end
else if k<min then min:=k
else if k>max then max:=k;
end;
writeln(min-max);
end.
1)
program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.
2)
program z2;
Var i:integer;
Begin
for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');
end.
2 способ:
program z2;
Var i:integer;
Begin
i:=1;
while i<=9 do
begin write(i, ', ');
i:=i+2;
end;
end.
3)
program z3;
Var i,n:integer;
S:real;
a: array[1..100] of real;
Begin
write('Введите количество элементов массива:');
readln(n);
write('Введите элементы массива:');
for i:=1 to n do read(a[i]);
i:=1; S:=0;
while i<=n do
begin S:=S+a[i];
i:=i+2;
end;
write('S=',S);
end.
500 байт = 500*8бит=4000бит<span>5 Кб= 5/1024 Мб
87 Гб= 87*1024*1024*1024 байт=93415538688
7 Мб = 7*1024*1024*8 бит =58720256 бит
46 байт = 46/1024/1024Мб=0,0000438690185546875
700000 бит = 700000/8/1024=85,44921875 Кб
№2
32=2^i, следовательно i=5 бит
Тогда объем информации будет равен 3*25*80*5=30000 бит=3750 байт
№3
32=2^i i= 5 бит; Объем 1 сообщения 5*80=400 бит
64=2^i i=6 бит; Объем 2 сообщения 6*70=420 бит
№4
Всего в письме 30*48=1440 символов
900 байт=7200 бит
Информационный вес одного символа 7200бит/1440сим=5 бит
Мощность алфавита 2^5=32 символа.
№5
64=2^i=2^6
Следовательно i=6 бит
№6 решение аналогично №5</span>
Вроде должно быть так:
program primer;
var a,b,x:integer;
y:real;
begin
write('Введите значение переменной A');
readln(a);
write('Введите значение переменной B');
readln(b);
y:=2.4*abs((sqr(x)+b)/a)+(a-b)*sqr(sin(a-b)+sqrt(10)(x-b);
wtite('Результат',y:6:2);
readln
<span>end.</span>
Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.