Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
rAdo56
0 / 0 / 1
Регистрация: 20.03.2012
Сообщений: 17
#1

Массивы: вычислить min (a2, a4, a6...) + max (a1, a3, a5...) - Turbo Pascal

08.07.2012, 08:57. Просмотров 665. Ответов 6
Метки нет (Все метки)

min ( a2, a4, a6... ) + max ( a1, a3, a5... )
http://www.cyberforum.ru/turbo-pascal/thread438301.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2012, 08:57
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Массивы: вычислить min (a2, a4, a6...) + max (a1, a3, a5...) (Turbo Pascal):

Вычислить Z=(X[max]-Y[min])/2, где Х[max] - максимальный элемент массива Х(50), Y[min] - минимальный элемент массива Y(40)
помогите пожалуйста: Вычислить Z=(X-Y)/2, где Х - максимальный элемент массива...

Max Min массивы
Помогите пожалуйста решить: Сформировать целочисленный массив из 25 элементов,...

Найти max и min элементы в массиве и номер элемента, близкого к среднему арифметическому min и max.
Привет всем! Очень прошу помочь в решении задачи на определение характеристик...

Массивы (замена элементов max и min)
Здравствуйте! Помогите пожалуйста решить такую задачу в Паскале: даны массивы...

Паскаль, двумерные массивы, min и max
В заданой матрице n=6, m=9 поменять местами строку, в которой находится...

6
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,647
Записей в блоге: 1
08.07.2012, 09:05 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var A:array[1..100] of integer;
    i,n,imin,imax:byte;
Begin
    Randomize;
    Repeat 
     write('Введите размерность: ');readln(n);
    Until n in [2..100];
    For i:=1 to n do
     Begin
      A[i]:=random(51)-25;
      write(A[i]:3);
     End;
    imax:=1;imin:=2;
    For i:=3 to n do
     if (i mod 2 = 0)and(A[i]<A[imin]) then imin:=i
      else if A[i]>A[imax] then imax:=i;
    writeln;
    writeln('Max: ',A[imax]);
    writeln('Min: ',A[imin]);
    writeln('Max+min: ',A[imax]+A[imin]);
    readln;
End.
1
MansMI
1447 / 1156 / 549
Регистрация: 08.01.2012
Сообщений: 4,509
08.07.2012, 09:15 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses Crt;
var a,i,n,min,max:integer;
begin
    ClrScr;
    Write('Количество элементов:');
    ReadLn(n);
    for i:=1 to n do
    begin
        Write('a',i,':');
        ReadLn(a);
        if(i mod 2=1)and(max<a)or(i=1)then max:=a;
        if(i mod 2=0)and(min>a)or(i=2)then min:=a;
    end;
    WriteLn('max:',max);
    WriteLn('min:',min);
    ReadLn;
end.
1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,647
Записей в блоге: 1
08.07.2012, 09:17 #4
Цитата Сообщение от rAdo56 Посмотреть сообщение
min ( a2, a4, a6... ) + max ( a1, a3, a5... )
MansMI, а где сложение?!
0
MansMI
1447 / 1156 / 549
Регистрация: 08.01.2012
Сообщений: 4,509
08.07.2012, 09:25 #5
а где сказано: [2..100] и random(51)-25 ? что за придирки
0
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,647
Записей в блоге: 1
08.07.2012, 09:28 #6
Цитата Сообщение от MansMI Посмотреть сообщение
а где сказано: [2..100] и random(51)-25 ? что за придирки
так у тя по условию ТЗ не подходит, и это не придирки а поправки! а про способ заполнения ничего не сказано так что выбор остаётся за мной!
0
rAdo56
0 / 0 / 1
Регистрация: 20.03.2012
Сообщений: 17
08.07.2012, 09:54  [ТС] #7
Спасибо обоим. Вроде разобрался. Благодарю за помощь.
0
08.07.2012, 09:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2012, 09:54
Привет! Вот еще темы с решениями:

Вычислить y=min(a,b+c)+max(ac,b)+min(a2,c)
Даны целые числа a, b, c. Вычислить у-сумму. y=min(a,b+c)+max(ac,b)+min(a2,c)...

Вычислить max(min(3,5), min(2,6))
написать программу вычисляющую max((min(3,5),min(2,6)).

Определить max и min элементы массивы и переставить их местами
1. С клавиатуры вводится последовательность из n чисел. Определить номер...

Вычислить z=x[max]-y[min]/2
оформить в виде процедуры. Вычислить z=x-y/2 , где X- максимальный элемент...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru