Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Андрей_Андре
0 / 0 / 0
Регистрация: 04.09.2013
Сообщений: 15
#1

Одномерные массивы: Удалить из массива максимальный элемент - Pascal

04.09.2013, 12:40. Просмотров 521. Ответов 1
Метки нет (Все метки)

Дан массив действительных чисел С(n) . Удалить из массива максимальный элемент .
Элементы стоящие после него сдвинуть влево. Последний элемент сделать нулевым.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.09.2013, 12:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Одномерные массивы: Удалить из массива максимальный элемент (Pascal):

Одномерные массивы. Удалить из массива элемент, первая цифра которого четная.
Помогите решить! СРОЧНО! Удалить из массива элемент, первая цифра которого...

Удалить строки массива, в которых находится максимальный элемент
Дан массив B(n*m). Элементы массива ввести с клавиатуры. Удалить строку, в...

Одномерные массивы. Вставка, удаление элементов массива. Перестановка элементов массива. Сортировка массива методом пузырька
Помогите пожалуйста! Дан массив, состоящий из N букв латинского алфавита ...

Одномерные массивы. Вычислить количество положительных элементов массива
Зачет хочу получить по информатике, помогите 1) "В одномерном массиве...

Массивы. Заменить максимальный элемент на противоположный по знаку
Имеется массив А из N произвольных чисел (A(N)), среди которых есть...

Из первых четырех строк массива сформировать четыре новых вектора (одномерные массивы)
Здраствуйте, возникла проблемка в двумерном массиве Из первых четырех строк...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,650
Записей в блоге: 1
04.09.2013, 15:40 #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
Var C:array[1..100] of integer;
    i,imax,n:byte;
Begin
    write('Введите n: ');readln(n);
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      C[i]:=random(31)-15;
      write(C[i]:4);
    End;
    imax:=1;
    For i:=2 to n do
     if C[i]>C[imax] then imax:=i;
    writeln;
    writeln('Max = ',C[imax]);
    if imax=n then C[n]:=0
    else
    Begin
      For i:=imax to n-1 do
       C[i]:=C[i+1];
      C[n]:=0;
    End;
    writeln('Преобразованный массив');
    For i:=1 to n do
     write(C[i]:4);
    readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.09.2013, 15:40
Привет! Вот еще темы с решениями:

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

Удалить столбец и строку содержащие максимальный элемент матрицы
Прмогите решить плиз... Дана матрица А(nxm). Скорректировать эту матрицу,...

Дано число удалить максимальный элемент этого числа
Приветствую всех нужно написать программу в Delphi В edit1 Вводится число...

Заменить все отрицательные элементы массива на максимальный элемент массива
Дан одномерный массив из N элементов. Заменить все его отрицательные элементы...


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

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

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