Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
5 / 3 / 2
Регистрация: 20.01.2020
Сообщений: 9
1

Двумерные массивы и операции с ними

03.03.2020, 09:54. Показов 1703. Ответов 2
Метки нет (Все метки)

Ввести двумерный массив размером 5*5 с клавиатуры. Вывести массив на экран в виде таблицы. Для введенного массива определить:

1) количество строк, не содержащих ни одного нулевого элемента;
2) Сколько раз встречаются в массиве элементы первого столбца.
Помогите пожалуйста, мне уже сдавать скоро, а я никак сделать не могу.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.03.2020, 09:54
Ответы с готовыми решениями:

Двумерные массивы, операции над ними
Всем, здравствуйте! Набрала текст программы на паскале, но ответ выводит неправильно. Не могу...

Операции с индексированными переменными и двумерные массивы
1.Даны натуральные n, действительные числа a1, … , an. Преобразовать массив, расположив элементы в...

Построение многочленов и арифметические операции с ними
дан многочлен вида p(x) = c1xe1 + c2xe2 + … + cnxen , где e1 > e2 > … > en >= 0. Этот...

Массивы, матрицы и операции с ними
Доброго времени суток уважаемые программисты. Не большое отступление: В универе (заочное...

2
248 / 143 / 66
Регистрация: 29.07.2018
Сообщений: 1,131
03.03.2020, 16:15 2
Лучший ответ Сообщение было отмечено Jovem как решение

Решение

Цитата Сообщение от Jovem Посмотреть сообщение
в массиве
Вы имели ввиду в матрице?

Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
begin
  var m := ReadMatrInteger(5, 5);
  m.Println;
  var n: integer;
  for var i := 0 to m.RowCount - 1 do
    if m.Row(i).All(i -> i <> 0)
      then n += 1;
  $'Кол-во строк без "0": {n}'.Println;
end.
Это только первое задание
1
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
03.03.2020, 18:56 3
Лучший ответ Сообщение было отмечено Jovem как решение

Решение

Второе:
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
33
34
35
const
  n_max = 100;
 
var
  a: array [1..n_max, 1..n_max] of integer;
  k, i, j, n, m: integer;
  q: set of integer;
 
begin
  n := 2;
  m := 2;
  q := [];
  for i := 1 to m do
    for j := 1 to n do 
    begin
      write('A[', i, ',', j, ']= ');
      readln(a[i, j]);
    end;
  for i := 1 to m do
  begin
    for j := 1 to n do 
      write(A[i, j]:4);
    writeln;
  end;
  k := 0;
  for i := 1 to m do
    include(q, a[i, 1]);
  for i := 1 to m do
  begin
    for j := 2 to n do 
      if A[i, j] in q then
        inc(k);
  end;
  writeln(k);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2020, 18:56

Операции над матрицами (двумерные массивы)
Заданы две квадратные матрицы одинакового размера (≤ 5*5). Найти матрицу АВ-ВА. Вычисление...

Табулирование функции и поиск данных. Одномерные массивы. Двумерные массивы
Вычислить сумму первых четырех отрицательных элементов. В соответствии с п. 5.16 правил...

Даны 2 двумерные матрицы произвести с ними следующие действия в Delphi
Даны 2 двумерные матрицы произвести с ними следующие действия: 1) Сложение 2) Вычитание 3)...

Деревья и операции с ними
нужно создать и отобразить на форме структуру типа &quot;дерево&quot; с возможностью выполнять операции над...


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

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

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