Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 21, средняя оценка - 4.90
Lumer
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 5
#1

Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. - Pascal

26.10.2010, 03:18. Просмотров 2940. Ответов 3
Метки нет (Все метки)

Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Заранее спасибо!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2010, 03:18
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. (Pascal):

Заменить все отрицательные элементы целочисленного массива - Pascal
7. Заменить все отрицательные элементы целочисленного массива размера 10 на минимальное значение элементов массива. помогите братья и...

Заменить все отрицательные элементы на среднее арифметическое значение элементов массива - Pascal
ввести двухмерный массив A(N,N) Создать программу замены всех негативных элементов на среднее арифметическое значение элементов массива

Обнулить все отрицательные элементы целочисленного массива из 30 элементов - Pascal
Решите плз задачу. Обнулить все отрицательные элементы целочисленного массива из 30 элементов, заданного случайным образом числами от -15...

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

Заменить все отрицательные элементы массива нулями - Pascal
Создать одномерный массив из 10 случайных целых чисел из интервала от -10 до 15.Заменить все отрицательные элементы массива нулями. ...

Все отрицательные элементы массива заменить нулем - Pascal
N=10 Все отрицательные элементы массива заменить нулем. const WG=100; type tmasi=arrayof integer; var a:tmasi;...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Lumer
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 5
26.10.2010, 03:54  [ТС] #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 на значение максимального. - Извените что создал еще одну тему
0
apen
6 / 6 / 3
Регистрация: 23.05.2010
Сообщений: 28
26.10.2010, 07:29 #3
правильно
0
Demon-red
139 / 139 / 19
Регистрация: 25.01.2010
Сообщений: 181
26.10.2010, 07:51 #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.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2010, 07:51
Привет! Вот еще темы с ответами:

Все отрицательные элементы массива В заменить нулями - Pascal
Все отрицательные элементы массива В заменить нулями.Вывести на экран исходный и преобразованный массивы. Исходные величины:N=7...

Заменить все отрицательные элементы двумерного массива на максимальный элемент. - Pascal
Здравствуйте уважаемые знатоки. Хотелось бы получить помощь по отписанной ниже программе. Составьте программу меняющую все отрицательные...

Все отрицательные элементы массива заменить единицей, положительные возвести в квадрат, нули оставить - Pascal
Создать массив случайных чисел на интервале от -15 до 15. Все отрицательные элементы заменить единицей, положительные - возвести в квадрат...

Заменить элементы массива, равные 50, на значение максимального среди положительных элементов. Определить количество замен. - Pascal
Нужна помощь Специалиста по Pascal Спасибо что вы есть Помогите решить задачу на паскале: Дан массив C(N). Заменить элементы, равные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
26.10.2010, 07:51
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru