В доме 6 семей!!!!!!!!!!!!!!!!!!!!!
program qq;
var s,i,n:integer;
a:array [0..1000] of integer;
begin
s:=0;
readln (a[0]);
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]>a[i-1] then
s:=s+1;
end;
writeln(s);
end.
"больше за i-й элемента массива" - это вообще не понятно, пожалуйста в следующий раз пишите вопрос корректнее
Я думаю, что так аb+ac+db+dc
Вообщем тему эту давно делал, но попробовать стоит...
дано:
50 стр; 40 строк; 60 симв; N=256
реш:
60*40*50=120000 симв в (книге вообще)
256=2^8 значит 1символ=8бита
120000*8=960000бит
можно в более весомую единицу перевести:
960000\8=120000 байт
120000\1024=17.1875кб
дальше думаю не стоит