Смотри объясню как делать дни недели и дату впиши сам. на чтение запиши каждый день по 20 мин, а потом сложи(за неделю)(140) и раздели(среднее)(20)
просмотр передач запиши п. 20мин ; вт. 40мин ; ср. 45 мин; чт 15 мин ; пт 1 час ; сб. 2 часа; вс 1 час. всего за неделю выйдет 5 часов, среднее 43 мин.. Компьют игры. пн 30, вт 30, ср 1 час, чт 2 часа, пт 30 мин, сб 30 мин, вс 1 час. свего 5 часов. среднее 43 минуты. Активные игры понедельник 2 часа. вт 40 мин,ср 1 час 20 мин, чт 2 часа, пт 3 часа, сб 1 час, вс 2 часа. всего12 часов, среднее 2 часа. общение или прогулки. пн 1 часм, вт 30 мин, ср 30 мин, чт 40 мин, пт 1 час 20 мин, сб 2 часа, вс 1 час. всего8 часов. среднее 1 час. другое сможешь придумать сам ?
Const n=10;
var a:array[1..n] of integer;
i,s,min:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
s:=0; min:=a[1];
for i:=1 to n do
begin
s:=s+a[i];
if a[i]<min then min:=a[i];
end;
writeln('s = ',s,' min = ',min);
end.
Пример:
Массив A:
18 22 5 50 18 23 48 2 22 26
s = 234 min = 2
Всего 10 цифр(включая нуль)
По формуле Неймана
10<=2^i
i=4 бита
1)
var a: array [1..40] of integer;
i, s1, s2: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 2 = 1) then
begin
s1 := s1 + a[i];
inc(s2);
end;
end;
writeln(s1 / s2);
<span>end.
2)
var a: array [1..40] of integer;
i, q: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] <= 10) then q := q + a[i];
end;
writeln(q);
<span>end.
3)
var a: array [1..40] of integer;
i, w: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 3 = 0) then w := w + a[i];
end;
writeln(w);
<span>end.</span></span></span>
байт.