16 = 2
8 = 64
1 = 1000
4 = 500
Пользовалась таблицей
8(2^3) символов => каждый символ весит 3 бита
3б*120 = 360 Бит
var a:array[0..9] of integer;
i,min,max:integer;
begin
for i:=0 to 9 do readln(a[i]);
min:=a[0];
for i:=0 to 9 do if(min>a[i]) then min:=a[i];
max:=a[0];
for i:=0 to 9 do if(max<a[i]) then max:=a[i];
writeln(max,' ', min);
readln;
end.
1- думаю г :D
2- г? что ли я не видела ничего такого где можно было бы редактировать... там просто записываешь и все вроде :D сам проверь)
Имя ячейки конечно нельзя удалить