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

Pascal (Паскаль)

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

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

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

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

Заменить все отрицательные элементы целочисленного массива Pascal
в массиве А [n] отрицательные элементы заменить на значение максимального элемента, нули – на значение минимального элемента. Pascal
Заменить все отрицательные элементы массива на значение максимального Pascal ABC
Turbo Pascal Заменить все отрицательные элементы на заданное значение
Turbo Pascal Заменить все положительные элементы на значение максимального
Заменить все отрицательные элементы массива на их абсолютное значение Turbo Pascal
Turbo Pascal Заменить все отрицательные элементы массива на их абсолютное значение
Двумерный массив. Заменить все отрицательные элементы на их абсолютное значение, а все положительные - на их отрицательные эквиваленты Turbo Pascal
Дана целочисленная матрица размера nxn. Найти максимум матрицы и заменить все отрицательные элементы на его величину Turbo Pascal
Pascal Заменить все отрицательные элементы на среднее арифметическое значение элементов массива
Pascal Обнулить все отрицательные элементы целочисленного массива из 30 элементов
Turbo Pascal Заменить все отрицательные элементы массива их квадратами и упорядочить элементы массива по возрастанию

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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
правильно
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 на значение максимального.
Ответ Создать тему
Опции темы

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