Двумерный массив. Определить сумму элементов второго столбца массива, больших 10

@mu · Регистрация: 20.01.2012

Студворк — интернет-сервис помощи студентам

1. Дан двухмерный массив. Определить:
а) сумму элементов второго столбца массива, больших 10;
б) сумму элементов третьей строки массива, не превышающих 25;
в) количество ненулевых элементов первой строки массива;
г) количество элементов второго столбца массива, больших 15.

@thyrex · 02.04.2012, 15:13

Первая

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var mas: array [1..50,1..50] of integer;
   m, n, i, j, s:integer;
begin
 write('Введите размеры массива: ');
 readln(m, n);
 writeln('** Исходный массив **');
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     mas[i,j]:=random(50)-random(50);
     write(mas[i,j]:4);
    end;
   writeln; 
  end;
 s:= 0;
 for i:= 1 to m do
  if mas[i, 2] > 10
   then s:= s + mas[i, 2];
 writeln('Сумма элементов второго столбца, больших 10, равна ', s) 
end.

Вторая

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var mas: array [1..50,1..50] of integer;
   m, n, i, j, s:integer;
begin
 write('Введите размеры массива: ');
 readln(m, n);
 writeln('** Исходный массив **');
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     mas[i,j]:=random(50)-random(50);
     write(mas[i,j]:4);
    end;
   writeln; 
  end;
 s:= 0;
 for j:= 1 to n do
  if mas[3, j] <= 25
   then s:= s + mas[i, 2];
 writeln('Сумма элементов третьей строки, не превышающих 25, равна ', s) 
end.

Третья

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var mas: array [1..50,1..50] of integer;
   m, n, i, j, s:integer;
begin
 write('Введите размеры массива: ');
 readln(m, n);
 writeln('** Исходный массив **');
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     mas[i,j]:=random(50)-random(50);
     write(mas[i,j]:4);
    end;
   writeln; 
  end;
 s:= 0;
 for j:= 1 to n do
  if mas[1, j] = 0
   then s:= s + 1;
 writeln('Количество нулевых элементов первой строки равно ', s) 
end.

Четвертая

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var mas: array [1..50,1..50] of integer;
   m, n, i, j, s:integer;
begin
 write('Введите размеры массива: ');
 readln(m, n);
 writeln('** Исходный массив **');
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     mas[i,j]:=random(50)-random(50);
     write(mas[i,j]:4);
    end;
   writeln; 
  end;
 s:= 0;
 for i:= 1 to m do
  if mas[i, 2] > 15
   then s:= s + 1;
 writeln('Количество элементов второго столбца, больших 15, равно ', s) 
end.

@mu · 02.04.2012, 18:22 **[ТС]**

это одна задача целиком

@thyrex · 02.04.2012, 22:58

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
36
37
38
var mas: array [1..50,1..50] of integer;
   m, n, i, j, s1, s2, k1, k2:integer;
begin
 write('Введите размеры массива: ');
 readln(m, n);
 writeln('** Исходный массив **');
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     mas[i,j]:=random(50)-random(50);
     write(mas[i,j]:4);
    end;
   writeln; 
  end;
 s1:= 0;
 k1:= 0;
 s2:= 0;
 k2:= 0;
 for i:= 1 to m do
  begin
   if mas[i, 2] > 10
    then s1:= s1 + mas[i, 2];
   if mas[i, 2] > 15
   then k1:= k1 + 1;
  end;
 for j:= 1 to n do
  begin
   if mas[3, j] <= 25
    then s2:= s2 + mas[i, 2];
   if mas[1, j] <> 0
    then k2:= k2 + 1;
  end;
 writeln('Сумма элементов второго столбца, больших 10, равна ', s1);
 writeln('Сумма элементов третьей строки, не превышающих 25, равна ', s2);
 writeln('Количество ненулевых элементов первой строки равно ', k2);
 writeln('Количество элементов второго столбца, больших 15, равно ', k1);
end.

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@mu 0 / 0 / 0 Регистрация: 20.01.2012 Сообщений: 20

	Двумерный массив. Определить сумму элементов второго столбца массива, больших 10 02.04.2012, 11:45. Показов 10464. Ответов 3 Метки нет (Все метки) 1. Дан двухмерный массив. Определить: а) сумму элементов второго столбца массива, больших 10; б) сумму элементов третьей строки массива, не превышающих 25; в) количество ненулевых элементов первой строки массива; г) количество элементов второго столбца массива, больших 15. 0

@mu 0 / 0 / 0 Регистрация: 20.01.2012 Сообщений: 20
	02.04.2012, 18:22 [ТС]
	это одна задача целиком 0