Задачи

[Glebio95]

1)нужен рисунок на турбо паскаль ,любой,там человечек и .т.д.
2)Дан одномерный массив A[N]. Найти max{a2,a4,...a2k}+min{a1,a3,...,a2k +1} turbopascal

[Mad_Cat]

1) http://pascal.sources.ru/graph/graphpr.htm

Генерация программы воспроизведения графики. Turbo Pascal 5.5, Turbo Professional. Программа представляет собой графический редактор, в котором все сделанные Вами построения автоматически преобразуются в операторы результирующей программы. Результатом работы является готовый к компиляции исходник. Программа снабжена подробной системой HELP

1.1 человечек

2)

var a:array[1..100] of integer;
i,max,min,n:integer;
begin
write('n=');readln(n);
a[1]:=random(40)-20;
a[2]:=random(40)-20;
min:=1;
max:=2;
For i:=1 to n do begin
if i>2 then a[i]:=random(40)-20;
if odd(i) and (a[i]<a[min]) then min:=i;
if not odd(i) and (a[i]>a[max]) then max:=i;
write(a[i]:4);
end;
writeln;
writeln('max+min=',a[max]+a[min]);
readln;
end.

[Glebio95]

Сообщение от Mad_Cat

1) http://pascal.sources.ru/graph/graphpr.htm

2)

var a:array[1..100] of integer;
i,max,min,n:integer;
begin
write('n=');readln(n);
a[1]:=random(40)-20;
a[2]:=random(40)-20;
min:=1;
max:=2;
For i:=1 to n do begin
if i>2 then a[i]:=random(40)-20;
if odd(i) and (a[i]<a[min]) then min:=i;
if not odd(i) and (a[i]>a[max]) then max:=i;
write(a[i]:4);
end;
writeln;
writeln('max+min=',a[max]+a[min]);
readln;
end.

не правильно)

[Mad_Cat]

не правильно)

результат

n=7
2 -1 -1 13 -5 7 0
max+min=8

max среди четных индексов = 13
min среди нечетных индексов =-5
13+(-5) = 8
где ж неправильно то !!! Математику учебник за 1 класс перечитайте

[Glebio95]

во первых давайте без оскорблений,во вторых программа не та которая нужна,мне нужна такая,которая читает:размер массива к примеру 6 ,разложим a1=1 a2=2
a3=3
a4=4
a5=5
a6=6 и потом складывает 1 и 6=7
помогите,если можете

[Mad_Cat]

во-первых никто никого и не оскорблял - это просто совет
во-вторых ваш пост #3 должен был звучать не

не правильно)

а

Спасибо огромное! Просто я забыл упомянуть что мне нужен ввод массива с клавиатуры

и в-третьих вот с вводом с клавиатуры

var a:array[1..100] of integer;
i,max,min,n:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('[',i,']=');readln(a[i]);
end;
min:=1;
max:=2;
For i:=1 to n do begin
if odd(i) and (a[i]<a[min]) then min:=i;
if not odd(i) and (a[i]>a[max]) then max:=i;
write(a[i]:4);
end;
writeln;
writeln('max+min=',a[max]+a[min]);
readln;
end.

[Glebio95]

n=5
[1]=1
[2]=2
[3]=3
[4]=4
[5]=5
1 2 3 4 5
max+min=5
а должен писать 6,извини,что предираюсь)но в массивах я пока еще не разбираюсь,так бы написал)

[Glebio95]

а все извиняюсь,все правильно,спасибо большое)

[Mad_Cat]

а должен писать 6

max среди четных индексов = 4
min среди нечетных индексов =1
4+1=5 а не 6
Совет про учебник остается!