Форум программистов, компьютерный форум CyberForum.ru

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 21, средняя оценка - 4.90
Lumer
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 5
#1

Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. - Pascal

26.10.2010, 03:18. Просмотров 2912. Ответов 3
Метки нет (Все метки)

Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Заранее спасибо!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2010, 03:18     Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.
Посмотрите здесь:

Заменить все отрицательные элементы массива на значение максимального - Pascal ABC
заменить все отрицательные элементы целочисленного массива, состоящего из n элементов, на значение максимального.

Заменить все отрицательные элементы целочисленного массива - Pascal
7. Заменить все отрицательные элементы целочисленного массива размера 10 на минимальное значение элементов массива. помогите братья и...

Заменить все отрицательные элементы массива на их абсолютное значение - Turbo Pascal
всем привет, помогите мне пожалуйста решить программы от начало до конца, заранее спасибо. 1. Дан двумерный массив вещественных чисел...

Заменить все отрицательные элементы массива на их абсолютное значение - Turbo Pascal
1. Дан двумерный массив вещественных чисел размерностью N*M. Заменить все отрицательные элементы массива на их абсолютное значение, а все...

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

Двумерный массив. Заменить все отрицательные элементы на их абсолютное значение, а все положительные - на их отрицательные эквиваленты - Turbo Pascal
1) Дан двухмерный массив вещественных чисел размерностью N*M. Замените все отрицательные элементы массива на их абсолютное значение, а все...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Lumer
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 5
26.10.2010, 03:54  [ТС]     Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. #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
33
Program zad_19;
uses crt;
const
  n=10;
var
  i, max:integer;
  A:array [1..10] of integer;
Begin
  clrscr;
  writeln('Задача 19: Заменить все отрицательные элементы ');
  writeln('целочисленного массива размера 10 назначение максимального');
  Writeln('*******************************************************************');
  Writeln('Введите данные целочисленного массива ');
  for i:=1 to n do
   begin
     write(i,' элемент массива ');
     readln(A[i]);
   end;
  {1 Этап: Найти максимальный элемент массива}
  max:=a[1]; {Будем считать. что это первый элемент массива максимальный}
  for i:=2 to n do
  if a[i]>=max then max:=a[i]; {Если следующий элемент массива больше
           тогда максимальное становиться равным тому значению массива}
  {2 этап: Замена всех отрицательных элементов значением максимального}
  for i:=1 to n do
  if a[i]<0 then a[i]:=max;
  {Вывод результирующих данных}
  Writeln('*******************************************************************');
  writeln('Максимальное число данного массива равно ',max);
  writeln('Массив после замены отрицательных элементов значением максимального равен');
  for i:=1 to n do writeln(i,' элемент ', A[i]);
  readln;
end.


Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. - Извените что создал еще одну тему
apen
6 / 6 / 3
Регистрация: 23.05.2010
Сообщений: 28
26.10.2010, 07:29     Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. #3
правильно
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2010, 07:51     Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.
Еще ссылки по теме:

Обнулить все отрицательные элементы целочисленного массива из 30 элементов - Pascal
Решите плз задачу. Обнулить все отрицательные элементы целочисленного массива из 30 элементов, заданного случайным образом числами от -15...

в массиве А [n] отрицательные элементы заменить на значение максимального элемента, нули – на значение минимального элемента. - Pascal
в массиве А отрицательные элементы заменить на значение максимального элемента, нули – на значение минимального элемента. Вывести значения...

Заменить все отрицательные элементы массива их квадратами и упорядочить элементы массива по возрастанию - Turbo Pascal
В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1) количество отрицательных элементов массива; 2) сумму...

Заменить все отрицательные элементы на заданное значение - Turbo Pascal
Дан массив T1,...,T20. Если в массиве есть хотя бы один отрицательный элемент, то заменить все отрицательные элементы на Tср, иначе...

Заменить все положительные элементы на значение максимального - Turbo Pascal
Дан положительный массив. Заменить все положительные элементы на значение максимального. Заранее спс!

Дана целочисленная матрица размера nxn. Найти максимум матрицы и заменить все отрицательные элементы на его величину - Turbo Pascal
Помогите, пожалуйста, решить. Учусь заочно. Препод такой, что ничего особо не рассказывает, зато требует, чтобы решили.


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

Или воспользуйтесь поиском по форуму:
Demon-red
139 / 139 / 19
Регистрация: 25.01.2010
Сообщений: 181
26.10.2010, 07:51     Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. #4
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
uses crt;
var a : array [1..10] of integer;
i, max, n : integer;
begin
 clrscr;
 randomize;
  write('n = ');
  readln(n);
  writeln('massiv - 1');
 for i := 1 to n do
  begin
   a[i] := random(20) - 10;
   write(a[i]:3);
  end;
  writeln;
  writeln('Massiv - 2');
 max := a[1];
 for i := 1 to n do
  if (max < a[i]) then
   begin
    max := a[i];
   end;
 for i := 1 to n do
  begin
    if (a[i] < 0) then
     a[i] := max;
   write(a[i]:3);
 end;
 readln;
end.
Yandex
Объявления
26.10.2010, 07:51     Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.
Ответ Создать тему
Опции темы

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