Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Sasha1997
1 / 1 / 0
Регистрация: 18.10.2015
Сообщений: 39
1

Определить номера строк матрицы, все элементы которых четны

08.11.2015, 15:57. Просмотров 962. Ответов 3
Метки нет (Все метки)

В заданной целочисленной квадратной матрице Y порядка n (n<=8) определить номера строк, все элементы которых четны.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.11.2015, 15:57
Ответы с готовыми решениями:

Матрицы. Найдите номера строк, все элементы которых четны
Пусть дана целочисленная матрица размером n х m. Найдите номера строк: все...

Определить множество номеров строк и столбцов матрицы, элементы которых упорядочены
Дана квадратичная матрица. Определить множество номеров строк и столбцов,...

Найти номера строк матрицы, все элементы которых - нули
приложение 5 y=(1-e &quot;в степени -ab&quot;) x sin(4По) Приложение 6 Известно,...

Найдите номера строк матрицы, все элементы которых нули
Пусть дана целочисленная квадратная матрица порядка n. Найдите номера строк,...

Найти номера строк , все элементы которых равны
помогите решить! дана целочисленная матрица М(5,4).Найти номера строк , все...

3
MrCoub
6 / 6 / 12
Регистрация: 27.10.2015
Сообщений: 43
08.11.2015, 19:31 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
26
uses crt;
const n=8;
type Matrix=array[1..n,1..n] of integer;
var Y:Matrix;
    i,j:byte;
begin
    clrscr;
    for i:=1 to n do
        for j:=1 to n do
            readln(Y[i,j]);
    clrscr;
    for i:=1 to n do
    begin
        for j:=1 to n do
            write(Y[i,j]:9);
        writeln;
    end;
    writeln('Nomera strok s chetnimi elementami');
    for i:=1 to n do
    begin
        for j:=1 to n do
            if Y[i,j]<0 then break;
        if j=n then write(i:2); 
    end;    
    readln;
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4043 / 2660 / 2136
Регистрация: 22.11.2013
Сообщений: 7,469
08.11.2015, 23:41 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

MrCoub,
в задаче речь про четность, а не про отрицательность:
Pascal
22
  if not Odd(y[i,j]) then Break;
Добавлено через 7 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const n=8;
var
  a: array [1..n,1..n] of Integer;
  i, j: Integer;
begin
  WriteLn('Введите ',n*n,' значений:');
  for i:=1 to n do for j:=1 to n do Read(a[i,j]); ReadLn;
  Write('Номера строк с четными элементами: ');
  for i:=1 to n do begin
    j:=n; while (j>0) and not Odd(a[i,j]) do Dec(j);
    if j=0 then Write(' ',i);
  end; WriteLn;
end.
1
MrCoub
6 / 6 / 12
Регистрация: 27.10.2015
Сообщений: 43
08.11.2015, 23:55 4
Цитата Сообщение от bormant Посмотреть сообщение
MrCoub,
в задаче речь про четность, а не про отрицательность:
Pascal
22
  if not Odd(y[i,j]) then Break;
не заметил
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.11.2015, 23:55

Вывести номера строк, в которых все элементы различны
Ну в общем вводится матрица и ее размер, все элементы типа integer. Нужно в...

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

Вывести номера строк матрицы, элементы которых положительны и образуют возрастание
Дана целочисленная матрица размерности M*N. вывести на экран номера строк,...


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

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

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