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

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

01.02.2013, 22:01. Показов 1164. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
5 / 5 / 6
Регистрация: 04.12.2011
Сообщений: 179
02.02.2013, 21:32 2
Лучший ответ Сообщение было отмечено Yuray как решение

Решение

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
const n=5;m=4;
var
arr:array[1..n,1..m] of integer;
 
i,j,kol,a:integer;
begin
kol:=0;
randomize;
for i:=1 to n do
    for j:=1 to m do
    arr[i,j]:=random(10);
writeln('Введите целое число');
readln(a);
 
for i:=1 to n do
    for j:=1 to m do
     if (arr[i,j]=a) then
      inc(kol,1);
// вывод матрицы
writeln('матрица ',n,'*',m);
for i:=1 to n do
    begin
    for j:=1 to m do
    write(arr[i,j],'  ');
    writeln();
    end;
writeln('Количество элементов равных  ',a, ' равно ',kol);
 
writeln();
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2013, 21:32

Заменить числа, равные введенному с клавиатуры, на максимальное
составить одномерный массив из 10 целых случайных чисел. найти: 1)сумму отриц.чисел 2)кол-во...

В матрице (m x n) все элементы, равные единице, заменить суммой положительных элементов той строки
В матрице (m x n) все элементы, равные единице, заменить суммой положительных элементов той строки,...

Подсчитать количество элементов, кратных числу, введенному с клавиатуры
Дан одномерный массив размерностью 15, сформированный генератором случайных чисел. Подсчитать...

Поиск суммы всех двузначных чисел, кратных числу, введенному с клавиатуры
Напишите программу для поиска суммы всех двузначных чисел, кратных числу, введенному с клавиатуры.


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

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

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