Var
k, m, num: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := -7; Dat[2] := -8;
Dat[3] := 3; Dat[4] := 6;
Dat[5] := -4; Dat[6] := 3;
Dat[7] := 5; Dat[8] := 5;
Dat[9] := 7;Dat[10] := 1;
num:=1;
m := Dat[1];
for k := 2 to 10 do
if Dat [ k] *m< 0 then
begin
m := Dat[k];
num:= k
end;
writeln(m);
End.
Ответ
3
Есть разные целые типы, но тебе подходит ShortInt: от -128 до 127
Var n,a,i,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a);
s:=s+a;
end;
writeln(s);
end.
Пример:
3
12
54
91
157
7. 2 цвета кодируются глубиной цвета в 1 бит, т.к. 2 = 2^1. Значит рисунуко 184*2048 займет 184*2048*1 = 376832 бит = 47104 байт = 46 кбайт (8 бит = 1 байт, 1 кбайт = 1024 байт)
8. В рисунке 256*208 всего 256*208 = 53248 пикселей.
13 кбайт = 13312 байт = 106496 бит
Получаем глубину цвета, поделив информационный объем на количество пикселей: 106496/53248 = 2 бита на цвет.
С помощью 2-х бит можно закодировать 2^2 = 4 цвета.