Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
Lumer
Новичок
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 5
26.10.2010, 03:18     Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. #1
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Заранее спасибо!
AdAgent
Объявления
26.10.2010, 03:18     Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2010, 03:18     Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.
Посмотрите здесь:

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


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

Или воспользуйтесь поиском по форуму:
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
Новичок
 Аватар для apen
6 / 6 / 0
Регистрация: 23.05.2010
Сообщений: 28
26.10.2010, 07:29     Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. #3
правильно
Demon-red
Форумчанин
137 / 137 / 11
Регистрация: 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 на значение максимального.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Задать вопрос
Опции темы

Текущее время: 07:44. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2015, vBulletin Solutions, Inc.
Яндекс.Метрика