Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
ProstoVanya
0 / 0 / 0
Регистрация: 22.03.2012
Сообщений: 6
1

Массив. Найти элементы, больше, чем заданное значение, заменить их на нули

07.05.2012, 17:08. Просмотров 906. Ответов 2
Метки нет (Все метки)

Помогите написать программу:
В массиве А(100) найти элементы ,больше, чем заданное значение B,удалить их и на освободившиеся места поставить нули.
"А" задан в интервале [-120;+280] ,B=130. Оба массива распечатать.

помогите решить задачку
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.05.2012, 17:08
Ответы с готовыми решениями:

Дан массив С(Х). Заменить элементы, значение которых больше 7, количеством четных элементов этого массива
Дан массив С(Х). Заменить элементы, значение которых больше 7, количеством четных элементов этого ...

В исходном массиве все элементы, встречающиеся больше одного раза, заменить на нули
: в исходном массиве все элементы, встречающиеся больше одного раза заменить на нули

Массив: Заменить все отрицательные элементы на нули.
Дан двумерный массив размерность 5х8, заполненный случайным образом... - Заменить все...

Дан массив b 15 заменить все отрицательные элементы на нули
Дан массив b 15 заменить все отрицательные элементы на нули.

Двумерный массив. Заменить все симметричные элементы на нули
Заменить все симметричные элементы на нули это числа 11, 22 ...

2
BumerangSP
4292 / 1414 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
14.05.2012, 10:02 2
Лучший ответ Сообщение было отмечено ProstoVanya как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var a: array [1..100] of integer;
    i,b: integer;
begin
 clrscr;
 randomize;
 b:=130;
 for i:=1 to 100 do
  begin
   a[i]:=(random(400)-120);
   write(a[i]:4);
  end;
 writeln;
 for i:=1 to 100 do
  begin
   if a[i]>b then
    a[i]:=0;
   write(a[i]:4);
  end; 
 readln;
end.
0
ProstoVanya
0 / 0 / 0
Регистрация: 22.03.2012
Сообщений: 6
14.05.2012, 18:15  [ТС] 3
Спасибо=) Так просто.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2012, 18:15

Заменить все отрицательные элементы на заданное значение
Дан массив T1,...,T20. Если в массиве есть хотя бы один отрицательный элемент, то заменить все...

Заменить нулевые элементы в матрице на заданное значение
Суть проблемы в том, что он почему то все элементы меняет на заданное значение, хотя в цикле задаю,...

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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