Решите надо очень конец четверти не успеваю

Өңдеу

Ақпаратты сақтау мен іздестіру (Хранение и поиск информации; information storage and retrieval). Ақпаратты сақтау дегеніміз — келешекте пайдалану үшін ақпаратты қосалқы сақтауыш құрылғыға — магниттік таспаға немесе магниттік дискіге жазып алу. Сақтау — ақпаратпен жүзеге асырылатын негізгі операциялардьщ бірі жене уақыт аралығы өткеннен кейін оның қайта пайдаланылуын қамтамасыз ететін негізгі тәсіл. Ақпаратты іздестіру дегеніміз — сақталған ақпаратты алу және онымен жүзеге асырылатын негізгі операциялардьщ бірі. Кітапханалық істе «ақпаратты іздестіру» атауы біртектес болғанымен, мәні тұрғысынан мәтіндерді іздеу әдісіне (мысалы, кілттік сөз және индекстердің көмегімен) жатады немесе кейбір тақырып бойынша жұмыс жасауға сілтеме болып шығады. Бұл жағдайда ақпарат машинамен оқылатын тасуышта сақталады және компьютер көмегімен оқылады. «Ақпаратты сақтау мен іздестіру» атауы тек ақпаратты сақтау және ақпаратты іздестіру операциясы ғана емес, осы өзара байланысты операцияларды жүзеге асырудың көптеген әдістері де. Ақпаратты сақтау мен іздестіру пайдалану үшін сақтайды, ал іздестіру мүмкіндігі сол сақтау кезінде қаланады

Объяснение:

Program n1;
var a,k,sum,x:integer;

begin
write('Введите число X: ');
readln(x);

sum:=0; k:=0;
writeln('Введите непустую последовательность целых чисел, которая оканчивается нулем:');
read(a);
while a <> 0 do 
begin 
 if a>x then sum:=sum+a; 
 if a mod 2 = 0 then k:=k+1; 
 read(a);
end;

writeln('Сумма всех чисел последовательности, больших числа X: ',sum);
writeln('Количество всех четных чисел последовательности: ',k);
end.

program n2;
var a,b,k:integer;

begin
writeln('Введите последовательность ненулевых целых чисел, которая оканчивается нулем:');
read(a);
while a<>0 do
begin 
 read(b); 
 if a*b<0 then k:=k+1; 
 a:=b;
end;

writeln(k,' раз(а) в введенной последовательности меняется знак');
end.