Надо в паскале..вычислите наименьшее из трёх заданных чисел.

program a1;

  uses crt;

var a,b,c,k: longint;

begin

  clrscr;

  write('введите первое число: '); readln(a);  

  write('введите второе число: '); readln(b);  

  write('введите третье число: '); readln(c);    

if a< b then k: =a else k: =b;

if b< k then k: =b;

writeln(k);

readln

end. 

 

если paskal abc, то выделенное можно не писать 

простой алгоритм:

 

program alexey; {программа запрашивает у пользователя значения ежедневной температуры за 14 дней, и выводит максимальное и минимальное значения и в какие дни температруа достигала этих значений, а также вычисляет среднюю температуру за 2 недели}uses crt; const n=14; var  i, daymax, daymin: integer;   t,max,min,sum: real; begin  writeln('введите температуру за каждый день');   write('день 1-й: t = ');   readln(t);   max: =t;   min: =t;   sum: =t;   for i: =2 to 14 do //организуем цикл      begin           write('день ',i,'-й: t = ');           readln(t);           if t> max then              begin                  max: =t; // найдено новое максимальное значение                  daymax: =i; // запоминаем соответствующий номер дня              end;           if t< min then               begin                  min: =t; // найдено новое минимальное значение                  daymin: =i; // запоминаем соответствующий номер дня              end;           sum: =sum+t; //суммируем все значения t      end;   writeln();   writeln('максимальная температура была на ',daymax,'-й день: ',max,' градусов');   writeln('минимальная температура была на ',daymin,'-й день: ',min,' градусов');   writeln('средняя температура за 14 дней: ',sum/14,' градусов'); end.

Код pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22   var a : array [ 1.. 10 ] of integer; i ,p ,o ,n : byte; begin for i : = 1 to 10 do begin write ( 'введите ' ,i , ' число: ' ); readln (a [i ] ); end; for i : = 1 to 10 do begin if (a [i ] > 0 ) then inc (p ) else if (a [i ] < 0 ) then inc (o ) else inc (n ); end; writeln ( 'количество положительных элементов = ' ,p ); writeln ( 'количество отрицательных элементов = ' ,o ); writeln ( 'количество нулевых элементов = ' ,n ); end.