|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.06.2011, 17:25 | #1 |
Новичок
Джуниор
Регистрация: 07.06.2011
Сообщений: 2
|
Не могу справиться
Помогите решить эти задачи.Срочно надо..То я пытался их решить то не как не понимаю этот массив! (Препод говорит что они очень легкие и решения очень маленькое..Помогите плз) Нужно решить до 14 июня
_20110607_18531801.jpg _20110607_18543607.jpg |
07.06.2011, 17:31 | #2 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Покажите ваши наработки, расскажите, что не получается. Или огласите сумму и способы получения вознаграждения за решение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
07.06.2011, 19:05 | #3 |
Новичок
Джуниор
Регистрация: 07.06.2011
Сообщений: 2
|
2.
Код Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 uses crt; var a:array [1..40] of integer; srar:real; i,j,sum:integer; begin sum:=0; For i:=1 to 40 do begin a[i]:=random(100); write(a[i]:3); sum:=sum+a[i] end; srar:=sum/40; Writeln; sum:=round (srar); For i:=1 to 40 do if a[i]=sum then begin writeln (i); exit; end; For j:=2 to 40 do begin For i:=1 to 40 do if ((a[i]>sum) and (a[i]<sum+j)) or ((a[i]<sum) and (a[i]>sum-j)) then begin writeln (i); exit; end; end; end. 14. Код Pascal 1 2 3 4 5 6 7 8 9 10 11 uses crt; var a:array [1..50] of integer; i,min:integer; begin min:=100; For i:=1 to 50 do a[i]:=random (100); {For i:=1 to 50 do Write (a[i]:3); Writeln;} For i:=1 to 50 do if a[i]<min then min:=a[i]; For i:=1 to 50 do a[i]:=a[i]-min; For i:=1 to 50 do Write (a[i]:3); end. 16.1 Код Pascal 1 2 3 4 5 6 7 8 uses crt; var a:array [1..11] of integer; i:integer; begin For i:=1 to 11 do a[i]:=random(100); For i:=1 to 11 do Write (a[i]:3); For i:=1 to 5 do a[12-i]:=a[i]; Writeln; For i:=1 to 11 do Write (a[i]:3); end. 16.2 Код Pascal 1 2 3 4 5 6 7 8 uses crt; var a:array [1..11] of integer; i:integer; begin For i:=1 to 11 do a[i]:=random(100); For i:=1 to 11 do Write (a[i]:3); For i:=1 to 5 do a[i]:=a[12-i]; Writeln; For i:=1 to 11 do Write (a[i]:3); end. 17. Код Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 uses crt; var a:array [1..40] of integer; i,j,min,min1n,min2n:integer; begin min:=101; For i:=1 to 40 do a[i]:=random(100); For i:=1 to 40 do Write (a[i]:3); For i:=1 to 40 do if a[i]<min then begin min:=a[i]; min1n:=i; end; min:=101; For i:=1 to 40 do if (a[i]<min) and (i<>min1n) then begin min:=a[i]; min2n:=i; end; Writeln; Writeln ('Answer: ',min1n,'+',min2n); end. Вот только это |
07.06.2011, 19:21 | #4 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
14. min:=a[1] перед циклом.
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
07.06.2011, 19:31 | #5 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
17. Как-то так, например
Код:
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. Последний раз редактировалось Alex11223; 07.06.2011 в 19:36. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Функции. Си. Не могу справиться | Dpo6oDyH | Общие вопросы C/C++ | 4 | 18.05.2011 16:10 |
НЕ МОГУ СПРАВИТЬСЯ С ЗАДАНИЕМ | tanya-ay | Помощь студентам | 2 | 18.02.2011 07:49 |
Не могу справиться с Padeg.dll | LAnLorD | Microsoft Office Excel | 10 | 17.11.2010 12:48 |
Матрица.TurboPascal. Не могу справиться | Анюта) | Помощь студентам | 5 | 05.12.2009 16:07 |
Просто, но справиться не могу. | Небесный | Общие вопросы Delphi | 1 | 05.05.2008 11:32 |