БЛИН!!! Только решу задачку - Интер вырубается.....
А получилось вот что:
uses Crt;
const N=30;
type Mas=array [1..N] of integer;
var i, j , SumPol, SumOtr: integer;
A: Mas;
begin
ClrScr;
SumPol:=0;
SumOtr:=0;
WriteLn(' Sposob 1:');
WriteLn;
for i:=1 to N do
begin
A[i]:=-10+random(21);
Write (A[i]:4);
end;
WriteLn;
for i:=1 to N do
begin
if (A[i]>0) then SumPol:=SumPol+A[i];
if (A[i]<0) then SumOtr:=SumOtr+A[i];
end;
WriteLn(' SumPol =', SumPol);
WriteLn(' SumOtr =', SumOtr);
WriteLn;
WriteLn (' Sposob 2:') ;
SumPol:=0;
SumOtr:=0;
i:=1;
repeat
if (A[i]>0) then SumPol:=SumPol+A[i];
if (A[i]<0) then SumOtr:=SumOtr+A[i];
i:=i+1;
until i>30;
WriteLn(' SumPol =', SumPol);
WriteLn(' SumOtr =', SumOtr);
ReadLn;
end.
1 Пойти в лес.
2 Найти гриб
3 Определить породу
4 Положить в лукошко
Дано:
V*4 с=608 Мб
K=2048*1024
I=8 бит=1 байт
Найти:
частота — ?
Решение:
V=608 : 4=152 Мб (за 1 сек) * 1024=155648 Кб * 1024=159 383 552 байт
V=K*I*частота
частота=V/(K*I)
частота=159 383 552/(2048*1024*1)=76 Гц
Ответ: 76 Гц
Это невозможно. Т.К в большинстве кодировок нужно минимум 8 бит на символ