0 / 0 / 0
Регистрация: 07.12.2016
Сообщений: 4
1

Удалить из массива все элементы, равные значению первого элемента.

07.12.2016, 21:48. Показов 3779. Ответов 1

1.1. Дан линейный массив целых чисел. Удалить из массива все элементы, равные значению первого элемента массива. Сам первый элемент не удалять.
1.2. Дана матрица размера M на N. В каждом ее столбце найти количество элементов, больших среднего арифметического всех элементов этого столбца.

Добавлено через 28 минут
Кирюша Пархом постарался и сделал сам)
1.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
34
type 
A1=array [1..100] of real; 
var 
A:array [1..100] of A1; 
i,j,m,n,x:integer; 
sum,sr:real; 
B:A1; 
 
begin 
write('Введите количество строк: '); 
readln(m); 
write('Введите количество столбов: '); 
readln(n); 
for i:=1 to m do 
for j:=1 to n do 
a[i,j]:=random(100); 
writeln; 
writeln('Матрица: '); 
writeln; 
 
for i:=1 to m do begin 
for j:=1 to n do write('|',a[i,j]:3,'|'); 
writeln; 
end; 
 
writeln; 
For j:=1 to n do begin 
sum:=0; x:=0; 
For i:=1 to n do 
sum:=sum+A[i,j]; sr:=sum/n; 
For i:=1 to n do If A[i,j]>sr then x:=x+1; 
writeln('Кол-во элементов в ',j,' столбце: ',x); 
end; 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2016, 21:48
Ответы с готовыми решениями:

Удалить из массива все элементы, равные заданному числу
1. Дан целочисленный массив размера N. Удалить из массива все элементы, равные заданному числу 6, и...

Выручайте! В массиве A=(a1,a2,a3.an) все элементы, равные нулю, нужно поставить сразу после максимального элемента данного массива
Вот я набросал прогу, она переписывает элементы в порядке возрастания, мне нужно поставить все нули...

Дана последовательность из 100 чисел. Удалить элементы равные максимальному значению. Вставить значение К межд
Дана последовательность из 100 чисел. Удалить элементы равные максимальному значению. Вставить...

Удалить из массива все положительные элементы, расположенные до последнего отрицательного элемента
Прошу Вашей помощи. Задача: удалить из массива все положительные элементы, расположенные до...

1
Почетный модератор
64257 / 47557 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
08.12.2016, 07:44 2
1.1.
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
const n=20;
var a: array [1..n] of integer;
    i,j:byte;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=1+random(5);
  write(a[i]:3);
 end;
writeln;
j:=1;   //счётчик не равных первому, кроме первого
for i:=2 to n do //проходим по массиву
if a[i]<>a[1] then  //пропускаем не равные первому
 begin
  inc(j);
  if j<i then a[j]:=a[i]; //если равен первому, на их место пишем следующие
 end;
if j=0 then write('Все элементы удалены')
else if j=n then write('В массиве нет элементов, равных первому')
else
 begin
  writeln('Удаление равных первому');
  for i:=1 to j do write(a[i]:3);
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2016, 07:44
Помогаю со студенческими работами здесь

Удалить все элементы двунаправленного списка равные 10
Создать двунаправленный список, ввести элементы. Из введенных элементов удалить все, равные 10....

Удалить все элементы, равные полусумме своих соседей в исходном списке
Дан список из n целых чисел a1, a2,..., an. Удалить все элементы, равные полусумме своих соседей в...

Удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива.
Задание. Выполнить действия над одномерным массивом. Удалить все положительные элементы, имеющие...

Создать стек со случайными целыми числами. Удалить все элементы, равные первому
Создать стек со случайными целыми числами. Удалить все элементы, равные первому.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru