|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.12.2008, 15:10 | #1 |
Новичок
Джуниор
Регистрация: 17.12.2008
Сообщений: 2
|
задачи на массив среднеарифметическое и min,max
народ помогите плиз тут несколько задач надо решить...
1. Program Pr 1; var a:array[1..10] of integer; i,j,k,p:integer; min,max,m:integer; Begin randomize; for i:1 to 10 do begin a[i]:=random(50)-20; write(a[i],' '); end; writeln; m:=1; max:a[1]; for i:=2 to 10 do if a[i]>max then begin max:=a[i]; m:=1; writeln('наибольший элемент',max,'его номер',m); writeln; readln; end. проблема в том что над еще посчитать минимум и поменять их местами минимум с максимум. 2 вычислить корни квадратного уровнения Program Pr 2; uses crt; var a,b,c,p:real; Begin writeln('введите число'); readln(a,b,c); P=(sqr(a)*a)+(sqr(b))+c; writeln('P=',P:8:2); readln; end. проверти пожайлуста правельность написании программы и там надо еще дискриминант вычислить... 3 нужно создать и вычислить среднее арифмитическое из 10 чисел |
17.12.2008, 15:19 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
1
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
17.12.2008, 15:25 | #3 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
2
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
17.12.2008, 15:27 | #4 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
17.12.2008, 17:14 | #5 |
Новичок
Джуниор
Регистрация: 17.12.2008
Сообщений: 2
|
большое спс
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задачи на массив в Бейсике:((( Помогите пожалуйста | Nise | Помощь студентам | 10 | 17.03.2011 18:43 |
нахождение min в массиве | jenja | Общие вопросы C/C++ | 2 | 04.10.2008 19:32 |
Поиск min/max данных с несколькими условиями - нужна помощь! | /nort/ | Microsoft Office Excel | 3 | 16.03.2008 00:13 |
Как найти max и min элементы матрицы????? | ЕвгениуS | Помощь студентам | 19 | 02.03.2008 19:47 |
Двухмерный массив, 2 задачи | Juhn | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 10.02.2008 18:55 |