Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 2
Регистрация: 05.02.2014
Сообщений: 85
1

Массив: Элементы, находящиеся после максимального, переписать в новый массив В, если это возможно.

20.11.2015, 04:41. Просмотров 862. Ответов 5
Метки нет (Все метки)

Ввести массив А. Элементы, находящиеся после максимального, переписать в новый массив В, если это возможно. Массив В отпечатать. Если создание В невозможно, вывести об этом сообщение.
Замешкался в самом начале. Не получается найти макс элемент в массиве. Прошу помочь мне.
Заранее благодарю

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var i,j,n,m,max,min:integer;  
a:array[1..10,1..10] of integer;  
begin
writeln ('vvedite chislo n'); 
readln(n);  
writeln ('vvedite chislo m'); 
readln(m);  
writeln ('vvedite elementu massiva');  
for i:=1 to n do
begin
for j:=1 to m do
begin 
readln(a[i,j]);   
max:=a[1,1];  
if a[i,j] > max then
max:= a[i,j];
end;  
writeln('max=',max); 
end;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2015, 04:41
Ответы с готовыми решениями:

Переписать элементы, находящиеся после максимального, в новый массив
Ввести массив А. Элементы, находящиеся после максимального, переписать в новый массив В, если это...

Дан массив A(m). Переписать в массив В все элементы, стоящие после максимального элемента и до минимального
Дан массив A(m). Переписать в массив В все элементы, стоящие после максимального элемента и до...

Дан массив A(23). Переписать в новый массив все элементы, расположенные после последнего отрицательного.
Задача Дан массив A(23). Переписать в новый массив все элементы, расположенные после...

Массив: Переписать в новый массив В все элементы из А, которые больше С.
Товарищи, нужна помощь с задачей: Задан массив А из n элементов и вещественное число с. Переписать...

5
охотник
1010 / 534 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
20.11.2015, 07:26 2
допустим максимальное Вы найдете, например так изменив свою программу
Pascal
14
if i+j=2 then max:=a[1,1];
Pascal
18
19
end;
writeln('max=',max);
элементы находящиеся после максимального, это какие?
1 2 3
4 5 2
3 2 1
1 1 1
точно задание на двумерные массивы?
1
1 / 1 / 2
Регистрация: 05.02.2014
Сообщений: 85
20.11.2015, 11:30  [ТС] 3
Если быть точным, то на матрицы

Добавлено через 11 минут
Как я понял, вот мы вводим числа под ряд. А после, когда находим макс, то переписываем все цифры, введенные в начале программы после макса в b
0
Модератор
61685 / 46179 / 31858
Регистрация: 18.05.2008
Сообщений: 111,371
20.11.2015, 12:18 4
Думаю что текст задачи однозначно для одномерного массива, ни одного намека на матрицу.
1
1 / 1 / 2
Регистрация: 05.02.2014
Сообщений: 85
20.11.2015, 12:37  [ТС] 5
Вы правы. Одномерный
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5597 / 3328 / 2407
Регистрация: 22.11.2013
Сообщений: 9,380
20.11.2015, 15:19 6
Лучший ответ Сообщение было отмечено Rusich19 как решение

Решение

Даже массив для A не нужен :-)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const mn=50;
var
  a, i, k, m, n: Integer;
  b: array [1..mn] of Integer;
begin
  repeat Write('N [2..',mn,'] ='); ReadLn(n); until n in [2..mn];
  Write('Элементы: '); Read(m);
  for i:=2 to n do begin
    Read(a);
    if m<a then begin
      m:=a; k:=0;
    end else begin
      Inc(k); b[k]:=a;
    end;
  end;
  if k=0 then WriteLn('Максимальный элемент последний')
  else for i:=1 to k do Write(' ',b[i]);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2015, 15:19

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Удвоить элементы с четными номерами и переписать их в новый массив. Полученный массив отсортировать
4.Задача. Ввести с клавиатуры размерность и значения элементов линейного массива целых чисел....

Найти наименьшие, отрицательные, элементы каждой строки матрицы EW{m, m} находящиеся над главной диагональю и переписать их в одномерный массив W.
Мальчики помогите бедной девушке надо решить на завтро 2 задачи ,я уже пол дня мучаюсь .... ...

Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами (1, 3, …)
Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все элементы с...

Заменить отрицательные элементы массива находящиеся на нечетных позициях единицей и вывести новый массив на экран дисплея
нужно написать программу на java. double a = {25, 11, 250, 5, 24, 455, 3, 6, 2434, 11, -44, 13,...


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

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

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