1)
var
a:array[1..10] of integer;
i:integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(100)-40;
writeln;i:=1;
while i<=10 do begin
if a[i]<0 then begin a[i]:=0;
i:=11;end;
inc(i);
end;
for i:=1 to 10 do write(a[i]:3);
<span>end.
2)
var a:array[1..10] of integer;
i:integer;
begin
for i:= i to 10 do read(a[i]);
</span>for i:= i to 10 do<span>
if a[i] mod 3 =0 then a[i]:=a[i]*3;
</span>for i:= i to 10 do write(a[i]);
end.
27913
________________________________________________________
1 кбайт = 1024 байт.
1 байт =8 бит.
1 кбайт = 1024*8=8192 бит.
0,5 кбайт = 8192/2=4096 бит.
Ответ: 4096 бит.
1)
const n = 5;
var
i, a, count: integer;
begin
for i := 1 to n do begin
readln(a);
if(a mod 2 = 0) then inc(count);
end;
writeln('Кол-во четных чисел: ', count);
end.
2)
var
i, n, count: integer;
begin
readln(n);
for i := 1 to n do begin
write(exp(ln(2)*i), ' ');
if(exp(ln(2)*i) <= 200) then inc(count);
end;
writeln('Кол-во эл. не превышающих 200: ', count);
end.