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

Определить максимальный или минимальный элемент в массиве встречается раньше - Pascal ABC

08.12.2011, 18:49. Просмотров 483. Ответов 1
Метки нет (Все метки)

Ввести одномерный массив A , вывести его. Определить максимальный
или минимальный элемент в массиве встречается раньше. Если
максимальный, то заменить минимумом первый элемент массива, если
встречается раньше минимальный, то заменить максимумом последний
элемент массива.
http://www.cyberforum.ru/pascalabc/thread367018.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 18:49
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить максимальный или минимальный элемент в массиве встречается раньше (Pascal ABC):

Определить максимальный или минимальный элемент в массиве встречается раньше
Ввести одномерный массив А , вывести его. Определить максимальный или...

Определить, в каком массиве отрицательное число встречается раньше
А(8), В(11), Определить в каком массиве отрицательное число встречается раньше...

Определить, в каком массиве из двух отрицательное число встречается раньше
Дано:массивы А(8),В(11). Определить в каком массиве отрицательное число...

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

Для каждой последовательности определить, какое число встречается раньше-отрицательное или положительное
Помогите, пожалуйста написать программу с помощью подпрограммы-функции "даны...

1
Own3D
121 / 121 / 73
Регистрация: 29.10.2011
Сообщений: 308
08.12.2011, 19:14 #2
Лучший ответ Сообщение было отмечено AJIuHoK как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses crt;
const
     n=10;
var mas:array[1..n] of integer;
    i,max,min,imax,imin:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
    begin
    mas[i]:=random(10);
    write(mas[i],' ');
    end;
max:=mas[1];
imax:=1;
min:=mas[n];
imin:=n;
for i:=1 to n do
    begin
    if mas[i]>max then
       begin
       max:=mas[i];
       imax:=i;
       end;
    if mas[i]<min then
       begin
       min:=mas[i];
       imin:=i;
       end;
    end;
writeln;
writeln('Max=',max,' Index=',imax,'. Min=',min,' Index=',imin,'.');
if imax<imin then
   begin
   mas[1]:=min;
   writeln('Max встречается раньше Min')
   end
   else
       begin
   mas[n]:=max;
   writeln('Min встречается раньше Max');
   end;
writeln('Преобразованный массив:');
for i:=1 to n do
write(mas[i],' ');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 19:14
Привет! Вот еще темы с решениями:

Найдите в массиве максимальный и минимальный элемент в массиве и поменяйте их местами
11. С клавиатуры вводится массив до «нуля». Найдите в нем максимальный и...

Определить минимальный элемент, его номер в массиве, заменить этот элемент элемент числом 1000
1. Задать массив А с помощью генератора случайных чисел положительными и...

Определить, сколько раз встречается минимальный элемент в последовательности
4. Определить, сколько раз встречается минимальный элемент в последовательности

Найти максимальный элемент матрицы в строках где максимальный встречается раньше минимального.
Подскажите как это можно осуществить: Дана вещественная матрица A размером...


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

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

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