Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
26.10.2010, 03:18   #1
Lumer
Новичок
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 5
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. / Pascal (Паскаль)

Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Заранее спасибо!
26.10.2010, 03:18
AdAgent
Объявления
26.10.2010, 03:54  [ТС]   #2
Lumer
Новичок
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 5
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.

Код 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 на значение максимального. - Извените что создал еще одну тему
Другие темы раздела
График функции Pascal
Нужно построить синусоиду, параболу и прямую на одной оси координат. Что-то вообще не доганяю с графиками, помогите пожалуйста!
Pascal Если знак не меняется ни разу, то вывести соответствующее выражение.
1. Если знак не меняется ни разу, то вывести соответствующее выражение. 2. В масиве, заполненном на половину, продублировать все элементы с сохранением порядка следования. Например, создан массив X=(3, 8, ...), получить массив X=(3, 3, 8, 8, ...). 3. Дан массив целых чисел, содержащий 20...
26.10.2010, 07:29   #3
apen
Новичок
6 / 6 / 0
Регистрация: 23.05.2010
Сообщений: 28
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.

правильно
26.10.2010, 07:51   #4
Demon-red
Форумчанин
136 / 136 / 4
Регистрация: 25.01.2010
Сообщений: 181
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. / Pascal (Паскаль)

Код 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.
26.10.2010, 07:51
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Pascal Заменить все отрицательные элементы на среднее арифметическое значение элементов массива
ввести двухмерный массив A(N,N) Создать программу замены всех негативных элементов на среднее арифметическое значение элементов массива
Pascal (Паскаль) Ахмент 16.06.2014 14:15
C (СИ) Заменить все положительные элементы целочисленного массива (из n элементов) на значение минимального
Решите задачу данной группы, оформив решение в виде функций ввода, вывода и обработки массивов. Заменить все положительные элементы целочисленного массива, состоящего из n элементов, на значение минимального. Заранее огромнейшее спасибо!
C для начинающих N22 15.06.2014 12:07
Delphi Заменить все положительные элементы целочисленного массива на значение минимального элемента
Заменить все положительные элементы целочисленного массива размера 10 на значение минимального
Delphi для начинающих Shaizer 28.05.2014 11:02
Turbo Pascal Двумерный массив. Заменить все отрицательные элементы на их абсолютное значение, а все положительные - на их отрицательные эквиваленты
1) Дан двухмерный массив вещественных чисел размерностью N*M. Замените все отрицательные элементы массива на их абсолютное значение, а все положительные элементы заменить на их отрицательные эквиваленты. 2) Даны два целочисленных массива, состоящие из одинакового числа элементов. Получить третий...
Turbo Pascal FedorBieber 06.06.2012 10:54
Pascal Заменить все отрицательные элементы целочисленного массива
7. Заменить все отрицательные элементы целочисленного массива размера 10 на минимальное значение элементов массива. помогите братья и сёстры!!
Pascal (Паскаль) Алексей Bont 16.05.2010 20:59
Опции темы

Текущее время: 14:43. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.