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

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

Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Заранее спасибо!
26.10.2010, 03:18
AdAgent
Объявления
26.10.2010, 03:54  [ТС]   #2
Lumer
Новичок
Регистрация: 26.10.2010
Сообщений: 5
Репутация: 0 (0)
Заменить все отрицательные элементы целочисленного массива размера 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
Новичок
Регистрация: 23.05.2010
Сообщений: 28
Репутация: 6 (6)
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.

правильно
26.10.2010, 07:51   #4
Demon-red
Форумчанин
Регистрация: 25.01.2010
Сообщений: 181
Репутация: 136 (136)
Лучшие ответы: 4
Заменить все отрицательные элементы целочисленного массива размера 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C (СИ) Заменить все положительные элементы целочисленного массива (из n элементов) на значение минимального
Решите задачу данной группы, оформив решение в виде функций ввода, вывода и обработки массивов. Заменить все положительные элементы целочисленного массива, состоящего из n элементов, на значение минимального. Заранее огромнейшее спасибо!
C для начинающих N22 15.06.2014 12:07
Delphi Заменить все положительные элементы целочисленного массива на значение минимального элемента
Заменить все положительные элементы целочисленного массива размера 10 на значение минимального
Delphi для начинающих Shaizer 28.05.2014 11:02
C++ Если максимальный элемент массива Х1 больше максимального Х2, то заменить им все отрицательные элементы матриц
Вот условие:Вввести двумерные массивы Х1(n1*m1) и X2(n2*m2). если максимальный элемент массива Х1 больше максимального элемента массива Х2, то заменить им все отрицательные элементы матриц . В противном сллучае все положительные элементы.Массивы до и после преобразования вывести на экран . При...
С++ для начинающих Mozzy 17.11.2012 01:34
C++ Заменить все отрицательные элементы массива на их абсолютное значение
Дан двумерный массив вещественных чисел размерностью M*N. Заменить все отрицательные элементы массива на их абсолютное значение, а все положительные элементы заменить на их отрицательные эквиваленты. Помогите сделать очередную задачу но используя библиотеки #include<iostream.h> #include<conio.h>...
С++ для начинающих Irina123 24.02.2012 14:57
Pascal Заменить все отрицательные элементы целочисленного массива
7. Заменить все отрицательные элементы целочисленного массива размера 10 на минимальное значение элементов массива. помогите братья и сёстры!!
Pascal (Паскаль) Алексей Bont 16.05.2010 20:59
Опции темы


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