Const n=10;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv =');
for i := 1 to n do
readln(a[i]);
k:=0;
for i := 1 to n do
if a[i]>0 then inc(k);
writeln('k=',k);
readln;
end.
полное имя стало <span>С:\Год\Неделя\День вот тебе и ответ</span>
А) 6кб=48000бит
б) 12кб=1536байт=12288бит
в)0,001536гб=1536кб=1536000байт
Северно Ледовитый океан, озеро Байкал, река Нева (открой атлас и посматри).