Const
x_max = 10;
x_min = -10;
x_step = 0.5;
var
x, y: real;
begin
x := x_min;
writeln('x':10, 'y':10);
repeat
writeln(x:10:2, (x - sin(x)):10:2);
x := x + x_step;
until x > x_max;
end.
1. (51+40+22)-((32+11+8)-6)=68, остаются 2, которые ходят пить пиво вместо занятий!))
насчет второго, да... 30.
В пятом будет под буквой Г
Исправь последнюю часть и в описании переменных добавь 2 дополнительных переменных а1 и а2.
...
sum, kolvoel, i, j, n, a1, a2 : integer;
...
srar:=sum/kolvoel;
writeln('srasr=',srar);
for i:=n downto 1 do
for j:=n downto 1 do
if b[i,j]>srar then begin a1:=i; a2:=j; end;
writeln('i=',a1,' j=',a2);
<span>end.</span>
10 Кбайт элементарная информатика!