По каналу связи передается последовательность положительных чисел, все числа не превышают 1000, их количество заранее неизвестно. Каждое число передается отдельно. Признаком конца передаваемой последовательности является число 0. После числа 0 передается контрольное значение - наибольшее число из последовательности, которое делится на 10. Напишите эффективную программу, которая получает последовательность чисел и следующие за ней признак конца и контрольное значение, а также проверяет правильность контрольного значения. Программа должна напечатать отчет следующего вида: Получено ... чисел Полученное контрольное значение: ... Вычесленное контрольное значение: ... Контроль пройден (или - контроль не пройден)

Question

Яла

Информатика

20 февраля, 01:33

По каналу связи передается последовательность положительных чисел, все числа не превышают 1000, их количество заранее неизвестно. Каждое число передается отдельно. Признаком конца передаваемой последовательности является число 0. После числа 0 передается контрольное значение - наибольшее число из последовательности, которое делится на 10. Напишите эффективную программу, которая получает последовательность чисел и следующие за ней признак конца и контрольное значение, а также проверяет правильность контрольного значения. Программа должна напечатать отчет следующего вида: Получено ... чисел Полученное контрольное значение: ... Вычесленное контрольное значение: ... Контроль пройден (или - контроль не пройден)

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Коналетто · Answer 1

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