Форум программистов, компьютерный форум 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 Заменить все отрицательные элементы целочисленного массива

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

Pascal Все отрицательные элементы массива заменить нулем

Turbo Pascal Заменить все положительные элементы на значение максимального

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

Turbo Pascal Все отрицательные элементы массива заменить на 0

Turbo Pascal замените все положительные элементы заданного целочисленного массива из 8 элементов числом 1, а все отрицательные числом 0

Pascal ABC все отрицательные заменить нулями ,числа которые больше 7 заменить их остатком от их целочисленного деления на 7

Turbo Pascal Дана целочисленная матрица размера nxn. Найти максимум матрицы и заменить все отрицательные элементы на его величину

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

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