Задача паскаль

[Madara]

Задача паскаль

Помогите с задачей пожалуйста

 

[Vladimir_S]

Помогите с задачей пожалуйста

Да пожалуйста, экие пустяки:

Const
 N=10;

Var
 A,B,C:Array[1..N] of Integer;
 i:Integer;
 Mean:Real;

Begin
 Randomize;
 Mean:=0;
 for i:=1 to N do
  begin
   A[i]:=Random(20);
   B[i]:=Random(20);
   C[i]:=Random(20);
   Mean:=Mean+A[i]/N;
  end;
 Writeln('All: ');
 for i:=1 to N do
  writeln(i:2, '   A= ',A[i]:2,'   B= ',B[i]:2,'   C= ',C[i]:2);
 Writeln('Mean = ',Mean:0:5);
 Writeln('Selected:');
 for i:=1 to N do
  if (Sqr(A[i])>Sqr(B[i]-C[i])) and
     (Sqr(B[i])>Sqr(A[i]-C[i])) and
     (Sqr(C[i])>Sqr(B[i]-A[i])) then
   writeln(i:2, '   A= ',A[i]:2,'   B= ',B[i]:2,'   C= ',C[i]:2);
 Readln
End.

 

[Madara]

А можно не через рандомайз?

 

[Madara]

Без компьютера не могу на лист писать программы сразу(

 

[Vladimir_S]

А можно не через рандомайз?

Можно.

Const
 N=10;

Var
 A,B,C:Array[1..N] of Integer;
 i:Integer;
 Mean:Real;

Begin
 Mean:=0;
 for i:=1 to N do
  begin
   Write('A[',i:2,']= '); Readln(A[i]);
   Write('B[',i:2,']= '); Readln(B[i]);
   Write('C[',i:2,']= '); Readln(C[i]);
   Mean:=Mean+A[i]/N;
  end;
 Writeln('All: ');
 for i:=1 to N do
  writeln(i:2, '   A= ',A[i]:4,'   B= ',B[i]:4,'   C= ',C[i]:4);
 Writeln('Mean = ',Mean:0:5);
 Writeln('Selected;');
 for i:=1 to N do
  if (Sqr(A[i])>Sqr(B[i]-C[i])) and
     (Sqr(B[i])>Sqr(A[i]-C[i])) and
     (Sqr(C[i])>Sqr(B[i]-A[i])) then
   writeln(i:2, '   A= ',A[i]:4,'   B= ',B[i]:4,'   C= ',C[i]:4);
 Readln
End.

А можно перестать лоботрясничать и начать, наконец, учиться, вместо того, чтобы шариться по форумам с подобной ерундой? Да нет, мне не трудно, только образование-то нужно не мне...

 

[Vladimir_S]

Без компьютера не могу на лист писать программы сразу(

И чем мы можем в этой ситуации помочь?

 

[Madara]

Вроде так будет
Var A,B,C:Array[1..N] of Integer;
i:Integer;
M:Real;
begin
Read(N);
M:=0;
for i:=1 to N do
begin
Read
Readln(A);
Readln(B);
Readln(C);
M:=M+A/N;
end;
Writeln('Все тройки: ');
for i:=1 to N do
writeln(i:2, ' A= ',A:2,' B= ',B:2,' C= ',C:2);
Writeln('Среднее арифметическое = ',M:0:5);
Writeln('Необходимые нам тройки ;');
for i:=1 to N do if (Sqr(A)>Sqr(B-C)) and
(Sqr(B)>Sqr(A-C)) and (Sqr(C)>Sqr(B-A)) then
writeln(i:2, ' A= ',A:2,' B= ',B:2,' C= ',C:2);
End.

 

[Madara]

Я не верно написал

 

[Madara]

Спасибо вам большое )

 

[Vladimir_S]

Я не верно написал

Да уж... Ошибок - море.