Всем привет собираю играть в 19:00 в амонг ас 10 людей мой ник COFFI

Question

Информатика: Всем привет собираю играть в 19:00 в амонг ас 10 людей мой ник COFFI ​

Marta2910 · Accepted Answer

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.

Всем привет собираю играть в 19:00 в амонг ас 10 людей мой ник COFFI ​