№2. Найти минимальное из введенных трёхзначных чисел. Программа получает ** вход сначала...

Question

№2. Найти минимальное из введенных трёхзначных чисел. Программа получает на вход сначала количество чисел, затем сами числа (не большие 1000). Программа выводит на экран одно число: наименьшее число из введённых. (подсказка: переменной min присвоить значение 1000) №3. Вывести на экран таблицу умножения на А. Пользователь вводит число А, программа выводит на экран произведение числа А на все числа от 1 до 10 в виде5*1 = 55*2=10…НА ПАСКАЛЕ!!! Пожалуйста, до субботы, 2 мая. С циклом FOR

Answer 1

Ответ:

program qq;

var a, b, c, t: Integer;

begin

 Writeln('пиши 3 числа: '); ReadLn(a,b,c);

 if b

 if c  if b

 WriteLn('min: ',a);

end.

2)

program qq;

var a, b, c, t: Integer;  

begin

write('веди число: ');

readln(a);

for c:= 1 to 10 do

begin

  b:= a * c;

  writeln(a, ' * ', c, ' = ', b);

end;

end.

Comments

Первая задача не верна