Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Файл из чисел https://www.cyberforum.ru/ turbo-pascal/ thread1329543.html
Помогите, пожалуйста. Желательно использовать процедуры и функции. Создать файл из 150 целых чисел, лежащих на отрезке , используя генератор случайных чисел. -Вывести его на экран. -Сколько в нем...
Обработка массива. Получить массив В из массива А Turbo Pascal
Помогите пожалуйста с заданием(( var A : array of boolean; B : array of boolean; n,k : 1..6; Получить массив B из массива A удалением n-ой строки и k-го столбца.
Turbo Pascal Найти сумму элементов массива с нечетными номерами Ребят,нужно решить в Pascal: В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) сумму элементов массива с нечетными номерами; 2) сумму элементов массива, расположенных... https://www.cyberforum.ru/ turbo-pascal/ thread1329426.html Turbo Pascal Считать текст из файла и вывести его на экран Задача на тему строки и файлы: Написать программу, которая считывает текст из файла и выводит его на экран, меняя местами каждые два соседних слова. https://www.cyberforum.ru/ turbo-pascal/ thread1329424.html
Описать запись с именем AEROFLOT Turbo Pascal
Описать запись с именем AEROFLOT, содержащую следующие поля:  название пункта назначения рейса;  номер рейса;  тип самолета. Написать программу, выполняющую следующие действия:  ввод...
Turbo Pascal Описать структуру с именем TRAIN Задача была: Описать структуру с именем TRAIN, содержащую следующие поля: - название пункта назначения. - номер поезда. - время отправления. Написать программу, выполняющую следующие действия... https://www.cyberforum.ru/ turbo-pascal/ thread1329382.html
Turbo Pascal Задача километровые столпы Всем доброго времени суток, уперся в небольшой тупик на контрольной, есть задача, парень едет в електропоезде, сидит у окна и считает столпы, если номер столпа при делении на 7 дает остаток 3, то он... https://www.cyberforum.ru/ turbo-pascal/ thread1329370.html Turbo Pascal Дано массив mxn. Найти все четные числа на четных позициях и вывести их
Дано массив mxn. Найти все четные числа на четных позициях и вывести их.
Turbo Pascal DEV C++ https://www.cyberforum.ru/ turbo-pascal/ thread1329099.html
Помогите решить задачу пожалуйста!!!! Под номером 7, обведена в кружок, нужно написать в программе DEV C++
Turbo Pascal основы графики(не рисует закрашенные фигуры) Пытаюсь нарисовать прямоугольник без закраски, а внутри с закраской и ничего не получается. Если Внутренний создаю с помощью bar то внешний виден, а внутренний не появляется. Если внутренний строю то... https://www.cyberforum.ru/ turbo-pascal/ thread1329062.html
Не работает директива $I Turbo Pascal
Хочу проверить наличие файла, но паскаль воспримает директиву как комментарий. Что не так? В похожей теме ответ так и никто не дал {$I-} reset(f); {$I+}
Turbo Pascal Определить, какой элемент массива встречается раньше: положительный или отрицательный https://www.cyberforum.ru/ turbo-pascal/ thread1328931.html
Дан A(20). какой элемент встречается раньше: положительный или отрицательный
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,124
Записей в блоге: 1
15.12.2014, 07:04 0

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

15.12.2014, 07:04. Показов 1403. Ответов 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.


Вернуться к обсуждению:
Составить программу определения макс. и мин. числа в массиве Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2014, 07:04
Готовые ответы и решения:

составить программу определения числа одинаковых целых чисел к в серии длиной больше 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2014, 07:04

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

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

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

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

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

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