Pascalabc.net var a: array[1..10000] of integer; kz,maxp,n,i,j: integer; begin i: =0; maxp: =integer.minvalue; writeln ('готов к приему чисел'); repeat i: =i+1; readln (a[i]); until a[i]=0; n: =i-1; readln (kz); for i: =1 to n-1 do for j: =2 to n do if maxp< (a[i]*a[j]) then maxp: =(a[i]*a[j]); writeln ('получено ',n,' чисел'); writeln; writeln ('полученное контрольное значение: ',kz); writeln; writeln ('вычисленное контрольное значение: ',maxp); writeln; if kz=maxp then writeln ('контроль пройден') else writeln ('контроль не пройден'); end. результаты: 1) готов к приему чисел 1 2 3 4 5 0 20 получено 5 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 20 контроль пройден 2) готов к приему чисел 1 2 3 4 5 6 0 20 получено 6 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 30 контроль не пройден
var
n, max, count, contrl, max2: integer;
begin
contrl := 0;
max := 0;
Writeln('Введите числа: ');
Readln(n);
while n <> 0 do
begin
Inc(count);
if n>max then begin max2:=max; max:=n end
else if n > max2 then max2 := n;
Read(n);
end;
max2*=max;
Writeln('Введите контрольное значение: ');
Read(contrl);
Writeln('Получено: ', count, ' чисел');
Writeln('Получено контрольное значение: ', contrl);
Writeln('Вычисленное контрольное значение:: ', max2);
if contrl = max then Writeln('Контроль пройден')
else Writeln('Контроль не пройден');
end.