31.10.2014, 14:59 | #1 (permalink) |
Member
Регистрация: 29.11.2013
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача паскаль
|
31.10.2014, 14:59 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Информация которая содержится в этих обсуждениях должна вам помочь Паскаль. Задача Задача. Паскаль Задача, Паскаль Задача, Паскаль |
31.10.2014, 15:18 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да пожалуйста, экие пустяки:
Код:
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. |
31.10.2014, 15:32 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Можно.
Код:
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
31.10.2014, 15:39 | #7 (permalink) |
Member
Регистрация: 29.11.2013
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вроде так будет
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. |
31.10.2014, 16:19 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|