Модель- это упрощенный заменитель реального объекта. :3
Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
1) 10 секунд.
16 бит = 2 байта.
32КГц = 32.000 Гц.
=640.000Байт=625КБайт=0,61МБайт
Ну вроде как от компьютера. Информация кодируется двоичным кодом, из нулей и едениц.
program fantscrin;
var a,c: array [1..1000] of integer;
i,n,s,j:integer;
Begin
write('N = '); readln(n);
s:=0;
for i:=1 to n do
begin
write('c[',i,'] = '); readln(c[i]);
s:=s+c[i];
end;
writeln('S = ', s);
j:=0;
for i:=1 to n do
if c[i] > s / n then
begin
j:= j + 1;
a[j]:= c[i];
end;
for i:=1 to j do
write(a[i], ' ')
End.