Const n = 10;
var
temp: array [0..n-1] of shortint;
max, min, i: byte;
sum : integer;
begin
randomize;
writeln ('Температуры ', n, ' дней:');
for i:=0 to n-1 do
begin
temp[i]:=random (41)-20;
write (temp[i], '; ');
if temp[i]>temp[max] then max:=i;
if temp[i]<0 then inc (min);
inc (sum, temp[i]);
end;

writeln ();
writeln ('Средняя температура: ', sum/n);
writeln ('Макс. температура: ', temp[max]);
write ('Кол-во дней с отриц. температурой: ', min);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Определите информационный объём слова: тетрадь. Информационный вес одного символа 12 бит

Zlata85

K=7 символам(без точки)
i=12
I=i*k
I=7*12=84 бит

k=8 символам(с точкой)
i=12
I=8*12=96 бит

Пожалуйста

0 0

4 года назад

Напишите фрагмент программы вычисляющей значение переменной y по следующим формулам: При х положительных: y=5x^2-4/7x+2 При х от

Лена19888

Var x: real;
{ процедура функция }
function y( x: real): real;
begin
if x>0 then Result:=5*x*x-(4/7)*x+2;
if x<0 then Result:=5*x*x-2*x+(1/3)*x-2;
end;
{ основная программа }
begin
write('Задайте значение x ');
readln(x);
if x=0 then writeln('при х = 0 функция не определена')
else writeln('Значение функции y = ',y(x):12:5);
end.
<span>
</span>

0 0

4 года назад

Сколько байт займёт сообщение, состоящее из 64 символов, если известно, что при создании этого сообщения использовался 16- симво

PavEv [20]

16 = 2⁴, поэтому один символ алфавита весит 4 бита.
64 × 4 = 256 бит = 32 байта

0 0

4 года назад