Построить циклические алгоритмы: 1. Вывести на экран значения линейной функции f=10x-5 для целого х, изменяющегося на интервале [min; 50] 2. Перевести караты в граммы, если 1 карат = 0,2 грамма. Интервал каратов: от 1 до 10 с шагом 0,5

1. var x: integer;

min: byte;

f: array[1 ... 50] of integer;

begin

writeln ('Введите начальное значение min');

readln (min);

for x : = min to 50 do f[i] : = (10 * x) - 5;

for x : = 1 to (50 - min) do write ('f', x, ' = ', f[i]);

end

2.

var x: byte;

begin

x : = x + 0.5;

while x < = 10 do begin

x : = x + 0.5;

writeln (x, ' карат = ', x * 0.2, ' грамма');

end;

end.