Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Создать три процедуры для вычисления значения выражения https://www.cyberforum.ru/ pascal/ thread1280568.html
S=(x/a+b)\cdot {e}^{-x/a+1}\cdot \frac{sin(x+y)}{cos(a+1)} Дано такое выражение. Нужно найти его значение, при этом написав три процедуры: одна обеспечивает ввод информации, вторая — вычисление...
Ввести данные с клавиатуры в массив. Упорядочить записи по определенным параметрам Pascal
1. Описать запись с именем Zodiac, содержащую следующие поля: - Фамилия, имя; - Знак зодиака; - День рождения(массив из трех чисел) 2. Написать программу выполняющую следующие действия: - Ввод...
Выдать информацию о группах с качественной успеваемостью больше 80% Pascal
1. Файл содержит сведения об успеваемости по информатике, каждая запись которого содержит поля: группа и качественная успеваемость. 2. Выдать информацию о группах с качественной успеваемостью больше...
Pascal Напечатать все слова последовательности в алфавитном порядке Дана последовательность от 1 до 30 слов,в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать все слова в алфавитном... https://www.cyberforum.ru/ pascal/ thread1280443.html
Pascal Как отсортировать записи https://www.cyberforum.ru/ pascal/ thread1280421.html
uses crt; const n=6; Type student=record name:string; data_r:integer; kurs:byte; special:string; stipendia:integer; end;
Pascal Найти 2 наибольших числа
Дано: Ряд целых чисел,где каждый член>=2, найти 2 наибольших элемента Текст программы: Var p,i,max1,max2,x:integer; Begin write('введите кол-во чисел в последовательности-'); readln(p); ...
Pascal Написать программу, которая считает количество элементов во втором предложении
Написать программу,которая считает количество элементов во втором предложении
Pascal Разбить строку на K слов, в каждом из которых не более m букв Дана строка из N букв. Разбить строку на K слов, в каждом из которых не более m букв. Вывести исходную строку и результат обработки строки https://www.cyberforum.ru/ pascal/ thread1279743.html
Pascal Найти минимальный простой элемент массива https://www.cyberforum.ru/ pascal/ thread1279687.html
Дана задача: сгенерировать случайный двумерный массив 3 на 4 и сравнить что больше - максимальное составное число или минимальное простое. Моя программа уже умеет генерировать сам массив, находит...
Pascal Круг из звездочек Помогите, пожалуйста, составить программу, которая выводит на экран круг из звездочек (*) радиусом заданным с клавиатуры. У меня получается только ромб. например, для радиуса n=12 должно выйти... https://www.cyberforum.ru/ pascal/ thread1279637.html
0 / 0 / 0
Регистрация: 27.09.2014
Сообщений: 18
0

Найти в массиве в первой половине min второй половине max например 1-10 первая полавина 1-5 вторая 5-10

21.10.2014, 00:04. Показов 415. Ответов 1
Метки (Все метки)

задача найти в массиве в первой половине min второй половине max например 1-10 первая полавина 1-5 вторая 5-10

вроде не правильно нашел на форуме
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var a: array [0..10] of integer;
i,max,min:integer;
begin
 
max:=1; min:=10;
for i:=1 to 10 do begin
read(a[i]);
if a[i]>a[max] then max:=i;
end;
 
for i:=10 to 10 do begin
read(a[i]);
if a[i]<a[min] then min:=i;
end;
 
a[0]:=a[min]; a[min]:=a[max]; a[max]:=a[0];
 
for i:=1 to 60 do write(a[i],' ');
writeln;
 
end.


Вернуться к обсуждению:
Найти в массиве в первой половине min второй половине max например 1-10 первая полавина 1-5 вторая 5-10
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.10.2014, 00:04
Готовые ответы и решения:

Найти max элемент в первой половине массива и min во второй
Найти МАХ элемент из первой половины массива и МИН – из второй половины массива.

В массиве найти в первой половине массива наибольший,а во второй половине-наименьший элемент и поменять их местами
В произвольном массиве A,состоящем из 60 целых чисел,принадлежащих промежутку ,найти в первой...

В первой половине массива найти максимальный элемент, во второй половине минимальный
Дан одномерный массив размером N. Заполнить массив случайными элементами. В первой половине массива...

Выполнить реверс массива отдельно в первой половине и второй половине
Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс...

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