Построить циклические алгоритмы: 1. Вывести на экран значения линейной функции f=10x-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.