№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;
№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.
Var i:integer; n,sum:real;
Begin
Write('Введите 10чисел: ');
while (i<>10) do begin
readln(n);
sum:=sum+n;
i:=i+1;
end;
writeln('Сумма этих чисел - ',sum);
end.
"Да" надо заключить в 'Да'
А вообще, лучше использовать цифры. Например, 1 и 2, Да и Нет соответственно. А в выводе указать, "Введите 1 для подтверждения"
142(5) = 1*5^2+4*5+2 = 25+20+2 = 47(10)
22(5) = 2*5+2 = 10+2 = 12(10)
21(3) = 2*3+1 = 6+1 = 7(10)
47-12+7 = 42(10)