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

В матрице чисел найти все элементы, равные числу, введенному с клавиатуры

03.07.2014, 19:42. Показов 1477. Ответов 1
Метки нет (Все метки)

написать блок-схему и программу согласно заданию.Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с клавиатуры. Подсчитать число таких элементов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2014, 19:42
Ответы с готовыми решениями:

В матрице найти все элементы, равные числу, введенному с клавиатуры
Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с...

Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с клавиатуры
Выручайте 2. Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные...

Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с клавиатуры. Подсчитать число таких элементов
Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с...

Найти в матрице все элементы, равные числу, введенному с клавиатуры
Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с...

1
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
04.07.2014, 03:20 2
Лучший ответ Сообщение было отмечено Salaga как решение

Решение

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
var
  A: array[1..20, 1..20] of integer;
  X: integer;
  i, j, count, n, m: byte;
  
begin
  repeat
    write('n = ');
    readln(n)
  until n <= 20;
  repeat
    write('m = ');
    readln(m)
  until m <= 20;
  write('Введите число: ');
  readln(X);
  writeln;
  count := 0;
  randomize;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i, j] := -100 + random(200);
      write(a[i, j]:5)
    end;
    writeln
  end;
  writeln;
  writeln('Результат:');
  for i := 1 to n do
    for j := 1 to m do begin
      if a[i, j] = X then begin
        writeln('a[', i, ', ', j, '] = ', a[i, j]);
        inc(count)
      end
    end;
  if count > 0 then writeln('Количество элементов: ', count)
  else writeln('Таких элементов нет');
  writeln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.07.2014, 03:20

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

Сжать массив, удаляя из него элементы равные числу, введенному с клавиатуры
Помогите пж если не сложно! Написать и протестировать функцию compress(), которая сжимает массив,...

Отсортировать массив по убыванию и найти в нем все значения, равные введенному числу
Напишите программу, которая сортирует массив по убыванию и ищет в нем все значения, равные...

Получить новый массив, удалив из исходного элементы, равные введённому пользователю числу k
Получить новый массив, удалив из исходного элементы, равные введённому пользователю числу k Вот,...


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

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

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