Program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end<span>.</span>
8)Г
9)Б
У тебя 9 правильно было написано, а в 8 думаю што Г
javascript:var массив = [], A = prompt(); for (let сч = 0; сч < A; сч++) массив.push(Math.random() * 100); alert(массив.reduce(function (пр, зн) { return зн > A ? ++пр : пр; }, 0));