Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!
Program riad;
var
a:array [1..10] of integer;
i,j:byte;
begin
writeln('Vvedite chisla');
for i:=1 to n do
readln(a[i]);
i:=1;
j:=0;
repeat
if a[i]<abs(a[i]) then j:=j+1;
i:=i+1;
until i=10;
writeln('kol-vo otricat = ',j);
readln;
end.
Var godA, godO, godL,ctar:integer;
begin
wrietln("A");readln(godA);
wrietln("O"); readln(godO);
wrietln("L"); readln(godL);
if (godA<godO) then ctar =<span>godO else ctar = godA;
</span>if (ctar<godL) then write("Сред:",ctar," Стар:",godL ) else
if(godA<godL) then write("Сред:",godL," Стар:",ctar) else
write("Сред:",<span>godA</span>," Стар:",ctar);
end;
бірінші жолда 10, 16; төртінші жолда 18,4,0; бесінші жолда 11,4,6, (әрі қарай білмеймін)