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

Написать процедуру, которая удаляет из одномерного вещественного масива наибольшее значение

07.03.2013, 14:10. Просмотров 854. Ответов 1
Метки нет (Все метки)

Напишите процедуру, которая удаляет из одномерного вещественного масива наибольшее значение.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2013, 14:10
Ответы с готовыми решениями:

Написать процедуру линейной сортировки одномерного вещественного массива
Написать процедуру линейной сортировки одномерного вещественного массива:)

Написать процедуру, которая удаляет из строки все конечные пробелы
2. Написать процедуру, которая удаляет из строки все конечные пробелы.

Составить процедуру, которая удаляет в слове четные буквы
Необходимо составить процедуру, которая удаляет в слове четные буквы. Помогите,...

Описать процедуру, которая удаляет из списка L второй элемент
Описать процедуру, которая удаляет: из списка L второй элемент, если такой...

Найти ошибку в программе. Написать процедуру или функцию, которая вычисляет значение выражения f(x).
1. Найти область допустимых значений аргумента x. 2. Написать процедуру или...

1
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
07.03.2013, 15:00 2
Лучший ответ Сообщение было отмечено ZOTAC как решение

Решение

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
uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure delmax(var a:mas;var n:byte);
var i,imx:byte;
begin
imx:=1;
for i:=1 to n do
if a[i]>a[imx] then imx:=i;
writeln('Максимальный элемент=',a[imx]:0:2);
if imx=n then n:=n-1
else
 begin
  for i:=imx to n-1 do
  a[i]:=a[i+1];
  n:=n-1;
 end;
writeln('Удаление максимального элемента');
for i:=1 to n do
write(a[i]:5:2);
end;
var a:mas;
    n,i:byte;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
delmax(a,n);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2013, 15:00

Описать процедуру, которая удаляет из списка L второй элемент, если такой есть
Здравствуйте! Помогите пожалуйста написать программу, совершенно не могу...

Составить процедуру, которая удаляет из матрицы строки, целиком состоящие из нулевых элементов
Составить процедуру, которая удаляет из матрицы строки, целиком состоящие из...

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


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

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

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