Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Космостар
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 13
1

Поменяйте местами минимальный элемент и максимальный элемент массива

24.04.2012, 23:45. Просмотров 949. Ответов 8
Метки нет (Все метки)

Уважаемые, помогите написать алгоритм решения этих 3 задачек по массивам. А то с ними я не разобрался.
Зараннее благодарен...

1)Дан одномерный массив. Поменяйте местами минимальный элемент и максимальный элемент.
2)Дан одномерный массив. Найти сумму элементов, больших данного числа А(число А вводить с клавиатуры).
3)Дан целочисленный массив размера N. Увеличить все четные числа, содержащиеся в массиве, на исходное значение первого четного числа. Если четные числа в массиве отсутствуют, то оставить массив без изменений.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2012, 23:45
Ответы с готовыми решениями:

Поменяйте местами минимальный элемент и максимальный элемент массива
№1: Дан одномерный массив. Поменяйте местами минимальный элемент и максимальный...

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

Поменять местами минимальный и максимальный элемент массива к-той строки
Дан массив A(n,m), найти максимальный и минимальный элемент к -той строки и...

Найти сумму элементов массива. Поменять местами максимальный и минимальный элемент.
помогите с программой. пользователь вводит 2 натуральных числа , составить...

Дан произвольный массив из 40 элементов. Поменять местами максимальный и минимальный элемент массива
1)Дан произвольный массив из 40 элементов. Поменять местами максимальный и...

8
Владимир_ВМ
128 / 109 / 103
Регистрация: 16.05.2011
Сообщений: 340
25.04.2012, 00:34 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var
M:array[1..10]of integer;
i,n,a,max,min,minI,maxI:integer;
begin
write('n=');read(n);
read(m[1]);
min:=m[1];min:=m[1]; minI:=1; maxI:=1;
for i:=2 to n do
  begin
    read(m[i]);
    if m[i]>max then begin max:=m[i]; maxI:=i;end;
    if m[i]<=min then begin min:=m[i]; minI:=i;end;
  end;
a:=m[minI];
m[minI]:=m[maxI];
m[maxI]:=a;
write('a=');read(a);
max:=0;
writeln('zadanie 1:');
for i:=1 to n do
  begin
    write(m[i]:4);if m[i]>a then max:=max+m[i];
  end;
writeln;
writeln('zadanie 2:');
writeln('summa=',max);
min:=0;
for i:=1 to n do
if m[i]mod 2=0 then begin min:=m[i]; break; end;
writeln('zadanie 3:');
for i:=1 to n do write(m[i]+min:4);
end.
1
Космостар
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 13
25.04.2012, 00:59  [ТС] 3
cпасибо, но это какая задача первая, вторая или третяя? разъясните пожалуйста
0
Владимир_ВМ
128 / 109 / 103
Регистрация: 16.05.2011
Сообщений: 340
25.04.2012, 01:12 4
А там же написано) Это и первая и вторая и третья одновременно
1
Космостар
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 13
25.04.2012, 22:30  [ТС] 5
ой ёй) а в трех отдельных оформленных экземплярах возможно написать эти задачки? то я запутаюсь...

Добавлено через 4 часа 4 минуты
ну напиишите отдельно оформленные ети 3 задачи пжлста...
Очень надо...

Добавлено через 1 час 12 минут
ну... ну...)
0
Владимир_ВМ
128 / 109 / 103
Регистрация: 16.05.2011
Сообщений: 340
25.04.2012, 23:42 6
там не запутаешься. каждое задание начинается с фразы "задание..."
1
Космостар
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 13
26.04.2012, 00:12  [ТС] 7
ну там каждая программа должна начинаться(program... , var, integer и т.д.) и заканчиваться (end.)...
а тут задание 2 к примеру начинается с writeln и нету ни конца ни начала)
c моими знаниями новичка ето трудно там разобраться)
0
Владимир_ВМ
128 / 109 / 103
Регистрация: 16.05.2011
Сообщений: 340
26.04.2012, 00:30 8
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
47
48
49
var
M:array[1..10]of integer;
i,n,a,max,min,minI,maxI:integer;
begin
write('n=');read(n);
read(m[1]);
min:=m[1];min:=m[1]; minI:=1; maxI:=1;
for i:=2 to n do
  begin
    read(m[i]);
    if m[i]>max then begin max:=m[i]; maxI:=i;end;
    if m[i]<=min then begin min:=m[i]; minI:=i;end;
  end;
a:=m[minI];
m[minI]:=m[maxI];
m[maxI]:=a;
writeln('zadanie 1:');
for i:=1 to n do
write(m[i]:2);
end.
 
var
m:array[1..10]of integer;
i,n,a,s:integer;
begin
write('n=,a=');read(n,a);
s:=0;
writeln('vvedite :',n,' chisel');
for i:=1 to n do
  begin
    read(m[i]);if m[i]>a then s:=s+m[i];
  end;
write('summa=',s);
end.
 
 
 
var
i,n,a:integer;
m:array[1..10]of integer;
begin
a:=0;
write('n=');read(n);
for i:=1 to n do read(m[i]);
for i:=1 to n do
if m[i]mod 2=0 then begin a:=m[i]; break; end;
writeln('zadanie 3:');
for i:=1 to n do write(m[i]+a:4);
end.
1
Космостар
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 13
26.04.2012, 11:08  [ТС] 9
большое спасибо за помощь и понимание) клацну "спасибо"

Добавлено через 9 часов 55 минут
Владимир_ВМ, в 3 задаче есть маленький недочет...
Вы сделали так, что в коце задачи все числа(четные и нечетные), содержащиеся в массиве, увеличиваются на исходное значение первого четного числа. А необходимо увеличивать только четные числа, нечетные вообще не трогать...
Исправьте пожалуйста, если вам не трудно...

Добавлено через 17 минут
Владимир не трудитесь)
Я уже сам разобрался в 3 задаче и переделал...
0
26.04.2012, 11:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2012, 11:08

Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение
Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое...

Поменять местами минимальный элемент правого верхнего и максимальный элемент правого
Задана матрица U(M,N) состоящая с k строк l столбцов,где 2&lt;l&lt;n-1, 2&lt;l&lt;m-1...

Поменять местами минимальный и максимальный элемент
Здравствуйте, не могли бы Вы помощь решить следующие задачи: 1) найти номера...


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

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

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