Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 14.12.2014
Сообщений: 9
1

Составить программу определения макс. и мин. числа в массиве

14.12.2014, 14:19. Показов 1376. Ответов 2
Метки нет (Все метки)

День добрый , помогите составить программу.
Составить программу определения макс. и мин. числа в массиве , состоящем из 20 чисел. Вычислить разность между макс. и мин. значением и заменить ею чётные элементы массива.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2014, 14:19
Ответы с готовыми решениями:

составить программу определения числа одинаковых целых чисел к в серии длиной больше 1 в одномерном массиве Х=(х1,х2,…,хn)
type mas=array of integer; var mt,mD:mas; p,k,n,e:integer; begin write('n= '); readln(n); ...

Макс и мин значения в двумерном массиве.
Дан массив 10*15. Надо найти максимальное и минимальное значение каждого столбца и строки....

Обнуление макс и мин элемента в массиве и элементы между ними.
В одномерном массиве из 10 элементов, определить минимальный и максимальный элементы. Обнулить все...

В одномерном массиве найти мин и макс элементы и заменить их местами
Написать программы: 1) в одномерном массиве найти мин и макс элементы и заменить их местами 2)в...

2
Фрилансер
3412 / 2809 / 3000
Регистрация: 08.02.2012
Сообщений: 8,107
Записей в блоге: 1
15.12.2014, 07:04 2
Лучший ответ Сообщение было отмечено Krossich как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Const n=20;
Var A:array[1..n] of integer;
    i,k,imin,imax,razn:integer;
Begin
    writeln('Введите ',n,' элементов');
    imax:=1;imin:=1;
    For i:=1 to n do
    Begin
      read(A[i]);
      if A[i]>A[imax] then imax:=i
       else if A[i]<A[imin] then imin:=i;
    End;
    writeln('Max = ',A[imax]);
    writeln('Min = ',A[imin]);
    razn:=A[imax]-A[imin];
    For i:=1 to n do
    Begin
      if A[i] mod 2 = 0 then A[i]:=razn;
      write(A[i]:4);
    End;
    readln;
End.
1
Cyborg Drone
17.12.2014, 14:27     Составить программу определения макс. и мин. числа в массиве
  #3

Не по теме:

Krossich, почитайте: https://www.cyberforum.ru/announcement.php?a=3

Дублирование (создание одинаковых тем в одном разделе) и кросспостинг (создание одинаковых тем в разных разделах) запрещены.

На первый раз устное предупреждение.

Соблюдайте правила форума, и, в частности, не допускайте того, чтобы Ваш ник не ассоциировался с кросспостингом.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2014, 14:27
Привет! Вот еще темы с ответами:

Даны 4 действительных числа a,b,c,d. Если сумма макс. и мин. равна сумме двух других, то все числа заменить этой суммой,
Даны 4 действительных числа a,b,c,d. Если сумма макс. и мин. равна сумме двух других, то все числа...

Составить схему алгоритма и программу определения в массиве Х[K] количества отрицательных элементов.
Помогите мне,пожалуйста, создать программу для Паскаля! Заранее спасибо!:senor:Буду очень...

Составить программу определения симметричности числа
Натуральное число, запись которого состоит из двух одинаковых упорядоченных наборов цифр, называют...

Составить программу для определения числа сочетаний
Здравствуйте!Мне необходима ваша помощь.Нужно составить программу для определения числа...


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

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

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