Форум программистов, компьютерный форум 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] отрицательные элементы заменить на значение максимального элемента, нули – на значение минимального элемента.
Turbo Pascal Заменить все положительные элементы на значение максимального
Turbo Pascal Двумерный массив. Заменить все отрицательные элементы на их абсолютное значение, а все положительные - на их отрицательные эквиваленты
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 +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
Яндекс.Метрика