Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 24, средняя оценка - 4.63
nikita_popov
0 / 0 / 1
Регистрация: 09.12.2009
Сообщений: 67
#1

Для целочисленной квадратной матрицы найти число элементов ,кратных K и наибольший из них. - Turbo Pascal

09.02.2010, 19:35. Просмотров 4373. Ответов 2
Метки нет (Все метки)

Для целочисленной квадратной матрицы найти число элементов ,кратных K и наибольший из них.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2010, 19:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Для целочисленной квадратной матрицы найти число элементов ,кратных K и наибольший из них. (Turbo Pascal):

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

Для матрицы найти число элементов, кратных K, и наименьший из них
Для целочисленной квадратной матрицы найти число элементов , кратных K, и...

Для целочисленной квадратной матрицы найти число элементов ,кратных K и наибольший из них.
Помогите пожалуйста с задачкой: Для целочисленной квадратной матрицы найти...

Найти число элементов матрицы, кратных k и наибольший из них.
Для целочисленной квадратной матрицы найти число элементов, кратных k и...

Разработайте универсальную программу нахождения числа элементов целочисленной квадратной матрицы кратных К и наибольшего из них
Здравствуйте. Вот моя задачечка: Разработайте универсальную программу...

Найти для каждой строки число элементов кратных пяти и наибольший из полученных результатов
1.Для целочисленной матрицы найти для каждой строки число элементов кратных...

2
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
09.02.2010, 19:51 #2
Лучший ответ Сообщение было отмечено nikita_popov как решение

Решение

Цитата Сообщение от nikita_popov Посмотреть сообщение
Для целочисленной квадратной матрицы найти число элементов ,кратных K и наибольший из них.
Pascal
1
2
3
4
5
6
7
8
9
max:=-maxint;
for i:=1 to n do
for j:=1 to n do
if (a[i,j] mod k=0) then begin
inc(kol);
if a[i,j]>max then max:=a[i,j]);
end;
writeln(kol);
writeln(max);
0
yanyk1n
4331 / 1462 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
09.02.2010, 19:53 #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
uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
i,j,max,k,t:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to n do
  begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
  end;
  writeln;
 end;
 write('K -> ');
 readln(k); 
 
 max:=-1;
 t:=0;
 for i:=1 to n do for j:=1 to n do if a[i,j] mod k=0 then
 begin
  inc(t);
  if a[i,j]>max then max:=a[i,j];
 end;
 write(k);
 writeln('MAX=',max);
 readln;
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2010, 19:53
Привет! Вот еще темы с решениями:

Матрице найти для каждой строки число элементов, кратных пяти, и наибольший из полученных результатов
Здравствуйте! Нам дали задание сделать словесное описание для программы. Само...

Для целочисленной квадратной матрицы найти элементы, кратные К
1) Дана матрица А размером NxM. Найти сумму элементов, которые больше суммы...

Найти количество элементов кратных k и из них найти наибольший элемент и наименьший элемент
«Дана квадратная матрица. Найти количество элементов кратных k и из них найти...

Для заданной квадратной целочисленной матрицы получить индексы каждого отрицательного элемента.Заменить нулями значения элементов
Помогите пожалуйста решить эту задачку. Для заданной квадратной целочисленной...


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

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

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