Задание1 :
var i,t:integer;
a:array[1..7] of integer;
begin randomize;
for i := 1 to 7do begin
a[i] := round( random(17)-7 );
write(a[i]:3);
end;
t := 0;
for i := 1 to 7 do
if a[i] < 0 then
inc(t);
writeln;
writeln(t);
readln;
<span>end.
Задание 2: </span>
<span>uses crt;
var x,n,res:longint;
begin
clrscr;
write (' vvedite chislo: ');
readln (x);
</span><span>res:=1;
for i:=1 to n do
res:=res*x
write (res);
readln;
end.</span>
Объяснение:
во вложениях.....
^ у меня не ставится, но выполняет свои действия, у себя его ставьте!
При использовании палитры из 4 цветов для хранения одного пикселя требуется log(2)4 = 2 бита. Память для хранения изображения: 66*66*2 бит = 8712 бит