Построить таблицы истинности и начертить cxembr:A and notB or notCnotA and notB or Cat notD

109

171

Посмотреть ответы 1

Ответы на вопрос:

Эргаш2Исамов

Информатика

4,8(30 оценок)

Program lana132; uses crt; const n=10; var i,ch,max,min,sum: integer; begin writeln('*** alphaeus is ***'); writeln('*** ok ***'); writeln(); writeln(); writeln('программа запрашивает n чисел, находит их сумму, максимальное и минимальное число'); sum: =0; write('введите 1-e число: '); read(ch); sum: =sum+ch; max: =ch; min: =ch; for i: =2 to n do begin write('введите ',i,'-e число: '); read(ch); sum: =sum+ch; if max< ch then max: =ch; if min> ch then min: =ch; end; writeln('сумма всех чисел равна ',sum); writeln('максимальное число равно ',max); writeln('минимальное число равно ',min); end.