Известно, что из четырех чисел a1, a2, a3, a4 одно отлично от трех других, равных между собой. найдите это число. решить на языке паскаля.

Var a1,a2,a3,a4: real; begin readln(a1,a2,a3,a4); if (a1< > a2) and (a1< > a3) then writeln(a1); if (a2< > a1) and (a2< > a3) then writeln(a2); if (a3< > a1) and (a3< > a2) then writeln(a3); if (a4< > a3) and (a4< > a2) then writeln(a4); end.

Пусть данные о температуре хранятся в массиве тemp  и количество данных (для определенности равно числу дней в месяце n=30) program temperatura; const n=30; type mas = array [1..n] of integer; var a: mas;       i,  max, maxind, min, minind: integer; begin for i: =1 to n do     a[i]: =-20+random(40);           {заполняем массив случайными числами} { а  сюда  вставляем по очереди блоки } readln; end. {блок: : дни с нулевой} for i: =1 to n do     if a[i] =0 tnen writeln(' day number ' ,i ); {блок:   дни с maxtemp и mintemp} max: =a[1]; min: =a[1]; maxind: =1; minind: =1; for i: =2 to n do     begin       if a[i]> max then begin                                   max: =a[i];   maxind: =i                                 end;       if a[i]< min then begin                                 min: =a[i];   minind: =i;                               end;     end;     writeln('max=', max, '  maxind=' , maxind);     writeln('min=', min, '  minind=' , minind); readln; end. {ну а последний блок (о днях с одинаковой температурой) попробуй написать сам}

{1} type mat = arrsay [1..3, 1..4] of integer; var i: integer; a: mas; begin for i: =1 to 3 do     begin       for j: =1 to 4 do           write (i: 4);     writeln;   end; readln; end. { 2} type mat = arrsay [1..3, 1..4] of integer; var i: integer; a: mas; begin for i: =1 to 3 do     begin       for j: =1 to 4 do           write (j: 4);     writeln;   end; readln; end.