Подсчитать количество элементов массива, значения которых больше заданного числа К

@Monah_45rus · Регистрация: 10.01.2011

Author24 — интернет-сервис помощи студентам

Помогите решить с парочкой задач на массивы.
1. Подсчитать количество элементов значения которых больше заданного числа К (К ввести с клавиатуры)
2. Заменить все положительные элементы массива на 0, а остальные вывести на экран
3. Вывести на экран номера элентов массива, значения которых равны заданному числу М, а сами значения из массива удалить. На экран вывести заданный и получившийся массивы.
4. Из одного массива сделать два массива в один из которых попадут элементы с нечетными индексами, а в другой с четными
5. Даны одномерные массивы А[1..n] и B[1..m] Построить массив С в котором сначала размещаются все элементы А, затем все элементы B.
Заранее всем спасибо.

@Dekio · 21.02.2011, 15:27

1.

Pascal
1
2
3
4
5
6
7
readln(k);
for i:=1 to n do
begin
readln(arr[i]);
if arr[i]>k then
inc(cnt);
end;

2.

Pascal
1
2
3
4
5
for i:=1 to n do
if arr[i]>0 then
arr[i]:=0
else
write(arr[i]);

@Monah_45rus · 21.02.2011, 15:44 **[ТС]**

Dekio, а можешь весь код написать?

@Dekio · 21.02.2011, 15:48

Monah_45rus, а самим? Лень?
Это вам, а не мне надо

@Wanee · 21.02.2011, 16:28

1)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
 
var
   a:array[1..100] of integer;
   i,n,k,x:integer;
begin
   clrscr;
   write('Введите n: ');
   readln(n);
   write('Введите массив: ');
   for i:=1 to n do
      read(a[i]);
   write('Введите k: ');
   readln(k);
   for i:=1 to n do
      if a[i]>k then inc(x);
   write('Таких чисел: ',x);
   readkey;
end.

Добавлено через 2 минуты
2)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
 
var
   a:array[1..100] of integer;
   i,n:integer;
 
begin
   clrscr;
   write('Введите n: ');
   readln(n);
   write('Введите массив: ');
   for i:=1 to n do
      read(a[i]);
   for i:=1 to n do
      if a[i]>0 then a[i]:=0 else write(a[i],' ');
   readkey;
end.

Добавлено через 17 минут
3)

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
uses crt;
 
var
   a:array[1..100] of integer;
   i,n,m:integer;
 
procedure p(j:integer);
var
   i:integer;
begin
   for i:=j+1 to n do
      a[i-1]:=a[i];
   dec(n);
end;
 
begin
   clrscr;
   write('Введите n: ');
   readln(n);
   write('Введите массив: ');
   for i:=1 to n do
      read(a[i]);
   write('Введите m: ');
   readln(m);
   for i:=1 to n do
      if a[i]=m then write(i,' ');
   writeln;
   i:=1;
   while i<=n do
      if a[i]<>m then p(i) else inc(i);
   for i:=1 to n do
      write(a[i],' ');
   readkey;
end.

Добавлено через 12 минут
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
 
var
   a,b:array[1..100] of integer;
   i,j,n,m:integer;
 
procedure p(j:integer);
var
   i:integer;
begin
   for i:=j+1 to n do
      a[i-1]:=a[i];
   dec(n);
end;
 
begin
   clrscr;
   write('Введите n: ');
   readln(n);
   write('Введите массив: ');
   for i:=1 to n do
      read(a[i]);
   i:=1;
   j:=1;
   while i<=n do
   begin
      inc(j);
      if odd(j) then
      begin
         inc(m);
         b[m]:=a[i];
         p(i);
      end
      else inc(i);
   end;
   write('Массив нечетными индексами: ');
   for i:=1 to n do
      write(a[i],' ');
   writeln;
   write('Массив четными индексами: ');
   for i:=1 to m do
      write(b[i],' ');
   readkey;
end.

Добавлено через 4 минуты
5)

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
35
uses crt;
 
var
   a,b,c:array[1..100] of integer;
   i,n,m:integer;
 
procedure p(j:integer);
var
   i:integer;
begin
   for i:=j+1 to n do
      a[i-1]:=a[i];
   dec(n);
end;
 
begin
   clrscr;
   write('Введите n: ');
   readln(n);
   write('Введите массив: ');
   for i:=1 to n do
      read(a[i]);
   write('Введите m: ');
   readln(m);
   write('Введите массив: ');
   for i:=1 to m do
      read(b[i]);
   for i:=1 to n do
      c[i]:=a[i];
   for i:=n+1 to n+m do
      c[i]:=b[i-n];
   for i:=1 to n+m do
      write(c[i],' ');
   readkey;
end.

Новые блоги и статьи Все статьи Все блоги /
Циклы for в Python py-thonny 17.03.2025 Существует множество ситуаций, когда нам нужно выполнить одно и то же действие несколько раз. Цикл for в Python — настоящий рабочий конь для большинства программистов. Если вам нужно пройтись по всем. . .	Предсказание ветвлений - путь к высокопроизводительному C++ NullReferenced 17.03.2025 В высокопроизводительном программировании на C++ каждый такт процессора на счету. Когда речь заходит о разработке систем с низкой задержкой — будь то высокочастотная торговля, обработка потоковых. . .	Паттерн CQRS в C# UnmanagedCoder 17.03.2025 Создание сложных корпоративных приложений часто требует нестандартных подходов к архитектуре. Один из таких подходов — паттерн CQRS (Command Query Responsibility Segregation), предлагающий простую,. . .	Паттерн Цепочка ответственности в C# UnmanagedCoder 17.03.2025 Цепочка ответственности — это поведенческий паттерн проектирования, который позволяет передавать запросы последовательно по цепочке потенциальных обработчиков, пока один из них не обработает запрос. . . .	Создаем микросервисы с NestJS, TCP и Typescript run.dev 17.03.2025 NestJS — фреймворк, который значительно упрощает создание серверных приложений на Node. js. Его прелесть в том, что он комбинирует концепции ООП, функционального программирования и предлагает. . .
Гексагональная архитектура со Spring Boot Javaican 17.03.2025 Если вы когда-нибудь сталкивались с ситуацией, когда внесение простых изменений в базу данных или пользовательский интерфейс заставляло вас переписывать весь код, то вы точно оцените элегантность. . .	Позиционирование Kafka Consumer и Seek-операции Javaican 17.03.2025 Что же такое Consumer Seek в Kafka? По сути, это API-метод, который позволяет программно указать, с какой позиции (offset) Consumer должен начать или продолжить чтение данных из партиции. Без этого. . .	Python NumPy: Лучшие практики и примеры py-thonny 17.03.2025 NumPy (Numerical Python) — одна из ключевых библиотек для научных вычислений в Python. Она превращает Python из просто удобного языка общего назначения в среду для проведения сложных математических. . .	Java Micronaut в Docker: контейнеризация с Maven и Jib Javaican 16.03.2025 Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .	Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2 Javaican 16.03.2025 Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .

Подсчитать количество элементов массива, значения которых больше заданного числа К

Решение

Решение

@Monah_45rus 0 / 0 / 2 Регистрация: 10.01.2011 Сообщений: 63
		1
	Подсчитать количество элементов массива, значения которых больше заданного числа К 21.02.2011, 15:06. Показов 9081. Ответов 4 Метки нет (Все метки) Помогите решить с парочкой задач на массивы. 1. Подсчитать количество элементов значения которых больше заданного числа К (К ввести с клавиатуры) 2. Заменить все положительные элементы массива на 0, а остальные вывести на экран 3. Вывести на экран номера элентов массива, значения которых равны заданному числу М, а сами значения из массива удалить. На экран вывести заданный и получившийся массивы. 4. Из одного массива сделать два массива в один из которых попадут элементы с нечетными индексами, а в другой с четными 5. Даны одномерные массивы А[1..n] и B[1..m] Построить массив С в котором сначала размещаются все элементы А, затем все элементы B. Заранее всем спасибо. 0

@Monah_45rus 0 / 0 / 2 Регистрация: 10.01.2011 Сообщений: 63
	21.02.2011, 15:44 [ТС]	3
	Dekio, а можешь весь код написать? 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	21.02.2011, 15:48	4
	Monah_45rus, а самим? Лень? Это вам, а не мне надо 0

Опции темы