к экзамену не допускают...(((

[Margaritka88888]

попробуйте решить задачи(((

1.Дан двумерный массив А(4;4). Заменить отрицательные элементы выше главной диагонали их среднеарифметическим.

2. Дана последовательность Аn и Е>0. Найти первый член последовательности An, для которого |An-An-1|<E
An=1+1/1(в третей) + 1/2(в третей)+ 1/3(в третей)+...

3. Найдите разницу в объемах шара и конуса с одинаковыми радиусами. Высота конуса равна его радиусу. В качестве пи использовать 3,14.

[Костя КС]

3.

program ll;
const p = 3.14;
var
Vsh, Vc, r : real;

begin
write('r = ');
readln(r);

Vsh := (4*p*r*r*r)/3;
Vc  :=  (p*r*r*r)/3;

writeln('объем шара = ', Vsh);
writeln('объем конуса = ', Vc);
writeln(Vsh - Vc);
end.

[ROMA2PVT]

-I-

Uses
  CRT;
const
    n=4;
var
    a:array[1..n,1..n] of real;
    i,j,kol:integer;
    sr,sum:real;
begin
clrscr;
randomize;
sum:=0;
kol:=0;
Writeln('Исходный массив: ');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
       a[i,j]:=random(10)-2;
       write(' ',a[i,j]:1:0,' ');
       if j>i then
       begin
       sum:=sum+a[i,j];
       inc(kol);
       sr:=sum/kol;
       end;
      end;
    writeln;
  end;
write('Среднее арифметическое элементов выше главной диагонали:=',sr:1:3);
 writeln;
   writeln('Сумма:=',sum:1:3);
     writeln;
       writeln('Результирующий массив: ');
  for i:=1 to n do
     begin
       for j:=1 to n do
        begin
          if (j>i) and (a[i,j]<0) then
          a[i,j]:=sr;
          write(' ',a[i,j]:1:2,' ');
        end;
        writeln;
     end;
readkey;
end.

[Margaritka88888]

спасибоньки огромное...

посмотрите вот еще две...пожаааалуйста...

1. Найдите разницу в объемах шара и конуса с одинаковыми радиусами. Высота конуса равна его радиусу. В качестве пи использовать 3,14.

2. Даны координаты любой точки плоскости. Определить лежит ли точка выше или ниже прямой, являющейся биссектрисой угла 1 и 3 четверти.

[Z1000000]

. Даны координаты любой точки плоскости. Определить лежит ли точка выше или ниже прямой, являющейся биссектрисой угла 1 и 3 четверти.

program aaa;
var
 X,Y : Real;
begin
writeln ('введите координаты точки :');
write('X');Readln(X);
write('Y');Readln(Y);
if Y > X then writeln ('Точка лежит выше прямой X = Y')
else writeln ('Точка лежит ниже прямой X = Y')
end.