Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.06.2011, 17:25   #1
calintz
Новичок
Джуниор
 
Регистрация: 07.06.2011
Сообщений: 2
Восклицание Не могу справиться

Помогите решить эти задачи.Срочно надо..То я пытался их решить то не как не понимаю этот массив! (Препод говорит что они очень легкие и решения очень маленькое..Помогите плз) Нужно решить до 14 июня
_20110607_18531801.jpg

_20110607_18543607.jpg
calintz вне форума Ответить с цитированием
Старый 07.06.2011, 17:31   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Покажите ваши наработки, расскажите, что не получается. Или огласите сумму и способы получения вознаграждения за решение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 07.06.2011, 19:05   #3
calintz
Новичок
Джуниор
 
Регистрация: 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.


Вот только это
calintz вне форума Ответить с цитированием
Старый 07.06.2011, 19:21   #4
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

14. min:=a[1] перед циклом.

И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 07.06.2011, 19:31   #5
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

17. Как-то так, например

Код:
min:=a[1];  
min1:=1;
for i:=2 to 40 do
   if (a[i] < min) then
   begin
      min:=a[i];
      min1:=i;
   end;
min:=a[1];
min2:=1;
for i:=2 to 40 do
   if (a[i] < min) and (i<>min1) then
   begin
      min:=a[i];
      min2:=i;
   end;
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.

Последний раз редактировалось Alex11223; 07.06.2011 в 19:36.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функции. Си. Не могу справиться 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