Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.
Второй if (в круглых скобках) синтаксически неверен
1.44 Гбайт= 1474.56 мбайт=1509949,4 Кбайт
370 Мбайт = 378880 Кбайт
190 Мбайт = 194560 Кбайт
1509949,4+970+378880+194560 = 2084359.4 Кбайт = 2035,5072 Мбайт = 1,9878 Гбайт
2 Гбайт > 1,9878 Гбайт
Ответ: Все файлы вместятся на флешку.
1)v=1/512 Мбайт=1/512*1024*1024*8 бит=16384 бит
i=16384/4096 бит=4 бит
N=2^4=16 символов
Ответ:16 символов
Program Z_n;
var a:array[1..10] of byte;
i:byte;
Begin
writeln;
Randomize;
For i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
if (a[i] mod 2)=0 then a[i]:=a[i]+1;
end;
writeln;
For i:=1 to 10 do
Write(a[i],' ');
end.