Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

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

Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Заранее спасибо!
Старый 26.10.2010, 03:54  [ТС]   #2
Lumer
Новичок
 
Регистрация: 26.10.2010
Сообщений: 5
Репутация: 0 (0)
Код 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 (Паскаль). Помощь в решении задач.
График функции Pascal
Нужно построить синусоиду, параболу и прямую на одной оси координат. Что-то вообще не доганяю с графиками, помогите пожалуйста!
Pascal Если знак не меняется ни разу, то вывести соответствующее выражение.
1. Если знак не меняется ни разу, то вывести соответствующее выражение. 2. В масиве, заполненном на половину, продублировать все элементы с сохранением порядка следования. Например, создан массив X=(3, 8, ...), получить массив X=(3, 3, 8, 8, ...). 3. Дан массив целых чисел, содержащий 20...
Старый 26.10.2010, 07:29   #3
apen
Новичок
 
Аватар для apen
 
Регистрация: 23.05.2010
Сообщений: 28
Репутация: 6 (6)
правильно
Старый 26.10.2010, 07:51   #4
Demon-red
Форумчанин
 
Регистрация: 25.01.2010
Сообщений: 181
Репутация: 136 (136)
Лучшие ответы: 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.
Старый 26.10.2010, 07:51
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Turbo Pascal Двумерный массив. Заменить все отрицательные элементы на их абсолютное значение, а все положительные - на их отрицательные эквиваленты
1) Дан двухмерный массив вещественных чисел размерностью N*M. Замените все отрицательные элементы массива на их абсолютное значение, а все положительные элементы заменить на их отрицательные эквиваленты. 2) Даны два целочисленных массива, состоящие из одинакового числа элементов. Получить третий...
FedorBieber
Pascal (Паскаль) Дан двухмерный массив вещественных чисел размерностью N*M. Заменить все отрицательные элементы массива на их абсолютное значение
Дан двухмерный массив вещественных чисел размерностью N*M. Заменить все отрицательные элементы массива на их абсолютное значение, а все положительные элементы заменить на их отрицательные эквиваленты.
Menkar94
С++ для начинающих Заменить все отрицательные элементы массива на их абсолютное значение
Дан двумерный массив вещественных чисел размерностью M*N. Заменить все отрицательные элементы массива на их абсолютное значение, а все положительные элементы заменить на их отрицательные эквиваленты. Помогите сделать очередную задачу но используя библиотеки #include<iostream.h> #include<conio.h>...
Irina123
Pascal (Паскаль) Заменить все отрицательные элементы целочисленного массива
7. Заменить все отрицательные элементы целочисленного массива размера 10 на минимальное значение элементов массива. помогите братья и сёстры!!
Алексей Bont
Опции темы

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

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