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

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

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

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

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

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

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

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

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

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

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
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
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
Привет! Вот еще темы с решениями:

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

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

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

Дана целочисленная квадратная матрица размером n*n, найти номера строк, все элементы которых – нули
по теме «Двумерные массивы» помогите написать программу: дана целочисленная...


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

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

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