Напишите наименьшее целое число x, для которого истинно высказывание:
НЕ (x нечётное) И НЕ (x<24)

Question

Информатика: Напишите наименьшее целое число x, для которого истинно высказывание: НЕ (x нечётное) И НЕ (x 24)

levusvaleria · Accepted Answer

Var mas: array[1..15] of integer;
      i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
    readln(mas[i]);
    min := mas[1];
    max := mas[1];
    nMin := 1;
    nMax := 1;
for i := 1 to 15 do
    begin
      if max < mas[i] then
        begin
          max := mas[i];
          nMax := i;
         end;
      if min > mas[i] then
        begin
          min := mas[i];
          nMin := i;
        end;
    end;
writeln('Максимальное число и его номер ', max, '   ', nMax, ' Минимальное число и его номер ', min, '   ', nMin);
end.

Напишите наименьшее целое число x, для которого истинно высказывание: НЕ (x нечётное) И НЕ (x<24)

MOGZ ответил

Напишите наименьшее целое число x, для которого истинно высказывание:
НЕ (x нечётное) И НЕ (x<24)