иніорматика - любимій предмет всехученков
DCT NFQYJT CNFYJDBNCZ ZDYSV/ ПРОСТО БЕРЕТЕ И ПО КЛАВИАТУРЕ ИЩЕТЕ ЭТИ БУКВЫ,НО ЧТО - ТО В ПОСЛЕДНЕМ СЛОВЕ НЕ ТАК,ВЫ НАВЕРНО НЕ ПРАВИЛЬНО НАПИСАЛИ
Нужно сравнить что было ДО редактирования с тем, что стало после редактирования. Если есть разница значит есть отличия.
Var
a, i, max: integer;
sum: real;
begin
max := 0;
sum := 0;
i := 0;
repeat
write('Введите число: ');
readln(a);
if a > 0
then begin
sum := sum + a;
i := i + 1;
end;
if max < a
then max := a;
until a = 0;
writeln(#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max);
end.
Что нужно сделать то? Схему нарисовать, или программу написать?