ОЧЕНЬ К какому типу суждений относится следующее суждение: «Ни один комар не является слоном» а) общеутвердительное б) общеотрицательное в) частноутвердительное г) частноотрицательное

б-общеотрицательное

В общем, это то же самое, что и для максимального, только вначале ты присваиваешь переменной min значение первого числа последовательности, а потом сравниваешь с этим числом все остальные. Смотри:

 

В Паскале:

Var a, i, mix, N: integer;

Begin

 Write ('Введите количество чисел в последовательности '); readln (N);

 Write ('Введите первое число последовательности '); readln (a);

 min:=a;

 for i:=1 to N do

 begin

  Write ('Введите следующее число последовательности '); readln (a);

  if (a mod 3 = 0) and (a<min) then min:=a;

 end;

 Writeln ('Минимальное число, кратное 3 в последовательности равно ', min);

End.

 

Очень простой алгоритм:

 

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.