Счёт хоккейного матча относится к чиловой форме информации.____________
Ресурсы человеческого мозга рассчитаны на переработку информации в 16 бит
4)
var
a, b: integer;
function max(a, b: integer): integer;
begin
if a > b then max := a else max := b;
end;
begin
readln(a, b);
writeln(max(a, 2 * b) * max(2 * a - b, b));
end.
5)
const
n = 10;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do
begin
readln(a[i]);
if i mod 2 = 0 then s := s + a[i];
end;
writeln(s);
end.
6)
const
handsfree = false;
var
a: array[1..100, 1..100] of real;
product: real;
i, j, m, n: integer;
begin
{ввод матрицы}
if handsfree then begin
n := random(20) + 2;
m := random(20) + 2;
end
else begin
write('n, m =');
readln(n, m);
end;
writeln('Данные матрицы:');
for i := 1 to m do
begin
for j := 1 to n do
if handsfree then begin
a[i, j] := random(100) - 50;
write(a[i, j]:4, ' ')
end
else
read(a[i, j]);
writeln;
end;
product := 1;
for i := 1 to m do
for j := 1 to n do
if a[i, j] > 0 then
product := product * a[i, j];
writeln('product = ', product);
end.
<em>MS-DOS QBasic</em>
<em>Версия 1.0</em>
<em>Copyright (C) Microsoft Corporation, 1987-1991.</em>
CLS
DIM n AS INTEGER
INPUT "n=", n
DIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
s = 0
FOR i = 1 TO n
a(i) = 101 * RND - 50
PRINT a(i);
s = s + a(i)
NEXT i
PRINT
m = s / n
k = 0
FOR i = 1 TO n
IF a(i) > m THEN k = k + 1
NEXT i
PRINT "k="; k
<u>Пример</u>
n=15
-13 17 43 -39 -20 -13 -5 32 12 -10 22 -24 31 6 -19
k= 7
Ж) https
Г) ://
А) obr.
В) org
Б) /
Е) rus.
Д) doc
https://obr.org/rus.doc