Ребят Даны 2 числа найдите большее из них A: проверка условий x>y если условие выполняется то max:=x иначе max:=x B: проверка условий x>y, если условие выполняется, то max:=y, иначе max:=x C:проверка условий x>y, если условие выполняет , то max=x, иначе max:=y

3

Объяснение:

На простом примере:

x = 5; y = 10

Если 5 > 10, то максимум = 5, иначе максимум = 10

5 больше 10? Нет, следовательно максимальное значение 10. Совпало.

x = 10; y = 5

Если 10 > 5, то максимум = 10, иначе максимум = 5

10 больше 5? Да, следовательно максимальное значение 10. Совпало.

Если разбирать 1 пример:

x = 5; y = 10

Если 5 > 10, то максимум = 5, иначе максимум = 5

5 больше 10? Нет, а максимум у нас 5... Не совпало.

Если разбирать 2 пример:

x = 10; y = 5

Если 10 > 5, то максимум = 5, иначе максимум = 10

10 больше 5? Да, а максимум у нас 5... Не совпало.

ответ:max := -1001;for j := 1 to N doif (abs(a[j]) mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];if max=-1001 then write('Не найдено')  else write(max);Объяснение:max := -1001;

Присваиваем переменной max, которая должна содержать максимальное значение, минимальное значение -1 ( -1000 -1 = -1001).

for j := 1 to N doif (a[j] mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];

Пробегаемся по элементам массива и смотрим: если остаток модуля элемента от деления на 10 неравен 3 (т.е. не оканчивается цифрой 3) и элемент меньше 0 (т.е. отрицательный), тогда, при условии, что элемент больше текущего максимального значения, переменную max перезаписываем -- присваиваем ей текущий элемент.

if max=-1001 then write('Не найдено')  else write(max);

Если переменная max содержит изначальное значение (-1001), то выводим на экран "Не найдено", иначе выводим на экран max.

Пример работы:

Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.

var
  i,n:integer;
  s:string;
begin
  Writeln('Введите текст, разделяя слова ровно одним пробелом');
  Readln(s);
  n:=0;
  for i:=1 to Length(s) do
    if s[i]=' ' then Inc(n);
  Writeln('Количество слов в тексте равно ',n+1)
end.

Тестовое решение:
Введите текст, разделяя слова ровно одним пробелом
Это текст, количество слов в котором нам нужно посчитать.
Количество слов в тексте равно 9