Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Андрей_Андре
0 / 0 / 0
Регистрация: 04.09.2013
Сообщений: 15
#1

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

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

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

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

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

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

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

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

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

1
CodeR
Фрилансер
3376 / 2778 / 788
Регистрация: 08.02.2012
Сообщений: 6,321
Записей в блоге: 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
Привет! Вот еще темы с ответами:

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

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

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

В матрице X(3,4), T(7,8) максимальный элемент этого массива заменить суммой положительных элементов массива - Pascal
В матрице X(3,4), T(7,8) максимальный элемент этого массива заменить суммой положительных элементов массива.


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

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

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