Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
-4 / 1 / 0
Регистрация: 24.01.2013
Сообщений: 60
1

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

24.01.2013, 23:17. Показов 2471. Ответов 2
Метки нет (Все метки)

Выручайте

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

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

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

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

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

2
45 / 45 / 44
Регистрация: 10.05.2012
Сообщений: 76
25.01.2013, 10:11 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
const
     M = 5;
     N = 5;
var
   a: array[1..M,1..N] of integer;
   i,j,x,k:integer;
begin
     randomize;
     k:=0;
     for i:=1 to M do begin
         for j:=1 to N do begin
             a[i,j]:=random(99);
             write(a[i,j], ' ');
             end;
         writeln;
         end;
     writeln('------------------');
     write('×èñëî = ');
     readln(x);
     for i:=1 to M do
         for j:=1 to N do
             if (a[i,j] = x) then
                inc(k);
     writeln('×èñåë ', x, ' â ìàòðèöå - ', k);
end.
2
-4 / 1 / 0
Регистрация: 24.01.2013
Сообщений: 60
25.01.2013, 19:50  [ТС] 3
Alles, Спасибо!

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2013, 19:50

Составить программу которая находит все пары чисел, в сумме равные 10
1)Сама программа-числа от 0 до 9( т.е. 6+4,7+3,5+5,8+2,9+1) 2)второй вид программы только там уже...

Написать программу,которая вычисляет сумму тех натуральных чисел от 1 до 50, которые кратны числу, вводимому с клавиатуры
Написать программу,которая вычисляет сумму тех натуральных чисел от 1 до 50, которые кратны числу,...

Написать программу, которая находит из всех четырехзначных чисел, такие числа, в записи которых все цифры различны
Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода...

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


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

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

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