Технический форум - Задача паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задача паскаль (http://www.tehnari.ru/f41/t99166/)

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

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

Цитата:

Сообщение от Madara (Сообщение 1074661)

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

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

Код:

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 (Сообщение 1074670)

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

Можно.

Код:

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.

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

Цитата:

Сообщение от Madara (Сообщение 1074671)

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

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

Вроде так будет
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 (Сообщение 1074677)

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

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