Вячейках а1 в1 ис1 электронной таблицы хранятся числовые значения. в ячейку d1 занесите логическое выражение, принимающее значение истина только тогда, когда среди этих трех чисел есть хотя бы одна пара значений. например: 1; 3; 1

Uses crt;   var a,max,x: integer;   begin           clrscr;           write('введите число: ');     readln(a);           max: =a mod 10;         while a> 0 do               begin          x: =a mod 10;           a: =a div 10;             if x> max then max: =x;     end;   writeln('максимальная цифра: ',max);   readln;   end.

program zadacha;

const n = 10;

type mas=array[1..n] of integer;

var s,i,k,d: integer;

m: mas;

begin

s: =0;

k: =0;

readln(d);

for i: =1 to n do

read(m[i]);

for i: =1 to n do

if m[i]< d then begin

s: =s+m[i];

k: =k+1;

end;

writeln('сумма чисел < d = ',s,' колиество чисел < d = ',k);

end. (это решение для случая если вы вводите сразу весь массив чисел)

program zadacha;

const n = 10;

var s,i,k,d,m: integer;

begin

s: =0;

k: =0;

readln(d);

for i: =1 to n do begin

readln(m);

if (m < d) then begin

s: =s+m14;

k: =k+1;

end;

end;

writeln('сумма чисел < d = ',s,' колиество чисел < d = ',k);

end. (а это решение для того случая когда вы вводите элементы по одному )