Информ Напишите условный оператор в полной форме для определения, является ли x минимумом среди y и z.

var n,i,c,m,p:integer;

begin

 m:=0;

 p:=0;

 writeln('Введите количество чисел.');

 readln(n);

 for i:=0 to n-1 do

 begin

   readln(c);

   if c < 0 then m:=m+1

   else if c = 0 then continue

   else p:=p+1;

 end;

 if p < m then writeln('Отрицательных чисел больше, чем положительных.')

 else if p > m then writeln('Положительных чисел больше, чем отрицательных.')

 else writeln('Равное количество положительных и отрицательных чисел');

end.

Объяснение:

Переменные:

n - количество чисел, i - счетчик цикла for, c - считанное значение, m - счетчик отрицательных чисел, p - счетчик положительных чисел.

Считаем, что "0" - ни положительное, ни отрицательное число.

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.

FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.