Дан двумерный массив размером m на n. Найти сумму его положительных элементов

@Gooms · Регистрация: 25.12.2009

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

Собственно: дан двумерный массив размером m на n.Найти сумму его полож. элем.Из первых четырех строк сформ.4новых вектора и в каждом из них удалить элем. Принадлеж.Отрез.[а;в]

@STGE · 26.05.2010, 19:53

Конечно удобнее было бы сформировать матрицу векторов, но раз задание

сформ.4новых вектора

, то:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
 uses crt;
 const n=10;
 var  ms1,ms2,ms3,ms4: array[1..n] of integer; i,j,k1,k2,k3,k4: byte;
      mas: array[1..n,1..n] of integer; a,b: integer; sum: longint;
 begin
  randomize;
  clrscr;
  writeln('исходный массив: ');    {заполнение и вывод элементов массива}
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      mas[i,j]:=random(19);
      mas[i,j]:=mas[i,j]-9;
      write(mas[i,j]:3);
     end;
    writeln;
   end;
  writeln;
 
  for i:=1 to n do    {вычисление суммы и её вывод}
   for j:=1 to n do
    if mas[i,j]>0 then sum:=sum+mas[i,j];
  writeln('сумма положительных элементов матрицы = ',sum,^j);
 
  for j:=1 to n do    {формирование 4-х одномерных массивов}
   begin
    ms1[j]:=mas[1,j];
    ms2[j]:=mas[2,j];
    ms3[j]:=mas[3,j];
    ms4[j]:=mas[4,j];
   end;
 
  writeln('вектора, сформированные из элементов первых 4-х строк матрицы: ');  {вывод векторов}
  write('1) ');
  for j:=1 to n do
   write(ms1[j]:3);
  writeln;
  write('2) ');
  for j:=1 to n do
   write(ms2[j]:3);
  writeln;
  write('3) ');
  for j:=1 to n do
   write(ms3[j]:3);
  writeln;
  write('4) ');
  for j:=1 to n do
   write(ms4[j]:3);
  writeln(^j);
 
  write('введите длину отрезка [a;b]: ');
  readln(a,b);
 
  writeln;
  if a>b then   {в случае если a>b, то меняем их значение местами}
   begin
    a:=a+b;
    b:=a-b;
    b:=a-b;
   end;
 
  for j:=n downto 1 do   {проверка векторов на наличие элементов, попадающих в отрезок [a;b]}
   begin
    if (ms1[j]>=a) and (ms1[j]<=b) then
     begin
      inc(k1);
      for i:=j to n-k1 do
       ms1[i]:=ms1[i+1];
      ms1[n-k1+1]:=0;
     end;
    if (ms2[j]>=a) and (ms2[j]<=b) then
     begin
      inc(k2);
      for i:=j to n-k2 do
       ms2[i]:=ms2[i+1];
      ms2[n-k2+1]:=0;
     end;
    if (ms3[j]>=a) and (ms3[j]<=b) then
     begin
      inc(k3);
      for i:=j to n-k3 do
       ms3[i]:=ms3[i+1];
      ms3[n-k3+1]:=0;
     end;
    if (ms4[j]>=a) and (ms4[j]<=b) then
     begin
      inc(k4);
      for i:=j to n-k4 do
       ms4[i]:=ms4[i+1];
      ms4[n-k4+1]:=0;
     end;
   end;
 
  writeln('результирующие массивы: ');
  {вывод векторов (в случае, если все элементы вектора попадают в пределы отрезка, то массив не выводится)}
  write('1) ');
  for i:=1 to n-k1 do
   write(ms1[i]:3);
  writeln;
  write('2) ');
  for i:=1 to n-k2 do
   write(ms2[i]:3);
  writeln;
  write('3) ');
  for i:=1 to n-k3 do
   write(ms3[i]:3);
  writeln;
  write('4) ');
  for i:=1 to n-k4 do
   write(ms4[i]:3);
 end.

@Gooms · 26.05.2010, 21:06 **[ТС]**

STGE, большое спасибо) только единственное с чем еще не разобрался, в каком формате нужно ввести длинну отрезка а б

@STGE · 26.05.2010, 21:25

a,b - целые положительные/отрицательные значения. Чтобы получался ответ необходимо a и b задавать в пределах диапазона генерации чисел, т.е. если chislo=random(41)-20 - диапазон от -20 до 20, то значения a и b возьмите например как -15 и 6, или -3 и 9, или 2 и 18 и т.д.

@Gooms · 26.05.2010, 21:31 **[ТС]**

STGE, именно так и делал) у меня программа после ввода чисел (введите длину отрезка [a;b]: -15 6) и нажатия клавиши enter выбрасывает обратно в редактор, не доходя до вкладки "результирующие массивы: " видимо проблема в моей версии паскаля(7.0 eng)

@STGE · 26.05.2010, 22:07

Gooms, попробуйте скачать schoolpack (правда есть один минус - нельзя провернуть вот такую штуку: a:=random(19)-9; но есть альтернатива: a:=random(19); a:=a-9;; а в остальном - отличная штука). На windows 7 schoolpack работает в полноэкранном режиме.

@Gooms · 26.05.2010, 22:30 **[ТС]**

STGE, скачивал еще давно, перед прочтением вашего сообщения как раз в ней лазил, все отлично запустилось и работает) спасибо еще раз!

@STGE · 26.05.2010, 23:33

Gooms, извиняюсь, что долго не отвечал (возникли небольшие проблемы - я забывал закрыть файл, и поэтому результат не оправдывал ожидания):

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
 uses crt;
 const n=10;
 var  ms1,ms2,ms3,ms4: array[1..n] of integer; i,j,k1,k2,k3,k4: byte;
      mas: array[1..n,1..n] of integer; a,b: integer; sum: longint; f: text;
 begin
  randomize;
  clrscr;
  writeln('исходный массив: ');    {заполнение и вывод элементов массива}
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      mas[i,j]:=random(19);
      mas[i,j]:=mas[i,j]-9;
      write(mas[i,j]:3);
     end;
    writeln;
   end;
  writeln;
 
  for i:=1 to n do    {вычисление суммы и её вывод}
   for j:=1 to n do
    if mas[i,j]>0 then sum:=sum+mas[i,j];
  writeln('сумма положительных элементов матрицы = ',sum,^j);
 
  for j:=1 to n do    {формирование 4-х одномерных массивов}
   begin
    ms1[j]:=mas[1,j];
    ms2[j]:=mas[2,j];
    ms3[j]:=mas[3,j];
    ms4[j]:=mas[4,j];
   end;
 
  writeln('вектора, сформированные из элементов первых 4-х строк матрицы: ');  {вывод векторов}
  write('1) ');
  for j:=1 to n do
   write(ms1[j]:3);
  writeln;
  write('2) ');
  for j:=1 to n do
   write(ms2[j]:3);
  writeln;
  write('3) ');
  for j:=1 to n do
   write(ms3[j]:3);
  writeln;
  write('4) ');
  for j:=1 to n do
   write(ms4[j]:3);
  writeln(^j);
 
  write('введите длину отрезка [a;b]: ');
  readln(a,b);
 
  writeln;
  if a>b then   {в случае если a>b, то меняем их значение местами}
   begin
    a:=a+b;
    b:=a-b;
    b:=a-b;
   end;
 
  for j:=n downto 1 do   {проверка векторов на наличие элементов, попадающих в отрезок [a;b]}
   begin
    if (ms1[j]>=a) and (ms1[j]<=b) then
     begin
      inc(k1);
      for i:=j to n-k1 do
       ms1[i]:=ms1[i+1];
      ms1[n-k1+1]:=0;
     end;
    if (ms2[j]>=a) and (ms2[j]<=b) then
     begin
      inc(k2);
      for i:=j to n-k2 do
       ms2[i]:=ms2[i+1];
      ms2[n-k2+1]:=0;
     end;
    if (ms3[j]>=a) and (ms3[j]<=b) then
     begin
      inc(k3);
      for i:=j to n-k3 do
       ms3[i]:=ms3[i+1];
      ms3[n-k3+1]:=0;
     end;
    if (ms4[j]>=a) and (ms4[j]<=b) then
     begin
      inc(k4);
      for i:=j to n-k4 do
       ms4[i]:=ms4[i+1];
      ms4[n-k4+1]:=0;
     end;
   end;
 
  writeln('результирующие массивы: ');
  {вывод векторов (в случае, если все элементы вектора попадают в пределы отрезка, то массив не выводится)}
  write('1) ');
  for i:=1 to n-k1 do
   write(ms1[i]:3);
  writeln;
  write('2) ');
  for i:=1 to n-k2 do
   write(ms2[i]:3);
  writeln;
  write('3) ');
  for i:=1 to n-k3 do
   write(ms3[i]:3);
  writeln;
  write('4) ');
  for i:=1 to n-k4 do
   write(ms4[i]:3);
 
  assign(f,'file.doc');   {запись в файл}
  rewrite(f);
  writeln(f,'ishodn. massiv: ');
  for i:=1 to n do
   begin
    for j:=1 to n do
     write(f,mas[i,j]:3);
    writeln(f);
   end;
  writeln(f,'summa = ',sum);
  writeln(f,'result. massivi: ');
  for i:=1 to n-k1 do
   write(f,ms1[i]:3);
  writeln(f);
  for i:=1 to n-k2 do
   write(f,ms2[i]:3);
  writeln(f);
  for i:=1 to n-k3 do
   write(f,ms3[i]:3);
  writeln(f);
  for i:=1 to n-k4 do
   write(f,ms4[i]:3);
  writeln(f);
  close(f);
 end.

@Gooms · 27.05.2010, 10:57 **[ТС]**

STGE, ну вот, все отлично) теперь программа может еще и записывать полученные результаты в файл!) спасибо еще раз!

@sergo2023 · 14.04.2019, 15:25

а есть эта же программа в интерфейсе?

@Cyborg Drone · 15.04.2019, 18:00

sergo2023, вопрос бессмысленный. В каком ещё, к лешему, интерфейсе? Или Вы имеете ввиду оконное приложение? Тогда вопрос глупый, поскольку очевидно, что нет.

Если Вам нужно оконное приложение, то на чём именно оно Вам нужно? Delphi, Lazarus (FPC), Pascal ABC, Pascal ABC.NET?

@sergo2023 · 15.04.2019, 18:29

Извините но я могу составить программу, и с интерфейсом не разбираюсь, но мне нужна просто имена такая же программа с интерфейсом

@Cyborg Drone · 15.04.2019, 18:48

Вы не ответили на вопрос. Выясните, что именно Вам нужно.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Gooms 3 / 3 / 0 Регистрация: 25.12.2009 Сообщений: 22

	Дан двумерный массив размером m на n. Найти сумму его положительных элементов 26.05.2010, 17:49. Показов 2237. Ответов 12 Метки нет (Все метки) Собственно: дан двумерный массив размером m на n.Найти сумму его полож. элем.Из первых четырех строк сформ.4новых вектора и в каждом из них удалить элем. Принадлеж.Отрез.[а;в] 0

@Gooms 3 / 3 / 0 Регистрация: 25.12.2009 Сообщений: 22
	26.05.2010, 21:06 [ТС]
	STGE, большое спасибо) только единственное с чем еще не разобрался, в каком формате нужно ввести длинну отрезка а б 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	26.05.2010, 21:25
	a,b - целые положительные/отрицательные значения. Чтобы получался ответ необходимо a и b задавать в пределах диапазона генерации чисел, т.е. если chislo=random(41)-20 - диапазон от -20 до 20, то значения a и b возьмите например как -15 и 6, или -3 и 9, или 2 и 18 и т.д. 0

@Gooms 3 / 3 / 0 Регистрация: 25.12.2009 Сообщений: 22
	26.05.2010, 21:31 [ТС]
	STGE, именно так и делал) у меня программа после ввода чисел (введите длину отрезка [a;b]: -15 6) и нажатия клавиши enter выбрасывает обратно в редактор, не доходя до вкладки "результирующие массивы: " видимо проблема в моей версии паскаля(7.0 eng) 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	26.05.2010, 22:07
	Gooms, попробуйте скачать schoolpack (правда есть один минус - нельзя провернуть вот такую штуку: a:=random(19)-9; но есть альтернатива: a:=random(19); a:=a-9;; а в остальном - отличная штука). На windows 7 schoolpack работает в полноэкранном режиме. 1

@Gooms 3 / 3 / 0 Регистрация: 25.12.2009 Сообщений: 22
	26.05.2010, 22:30 [ТС]
	STGE, скачивал еще давно, перед прочтением вашего сообщения как раз в ней лазил, все отлично запустилось и работает) спасибо еще раз! 0

@Gooms 3 / 3 / 0 Регистрация: 25.12.2009 Сообщений: 22
	27.05.2010, 10:57 [ТС]
	STGE, ну вот, все отлично) теперь программа может еще и записывать полученные результаты в файл!) спасибо еще раз! 0

@sergo2023 0 / 0 / 0 Регистрация: 14.04.2019 Сообщений: 7
	14.04.2019, 15:25
	а есть эта же программа в интерфейсе? 0

@Cyborg Drone Модератор 10422 / 5710 / 3401 Регистрация: 17.08.2012 Сообщений: 17,366
	15.04.2019, 18:00
	sergo2023, вопрос бессмысленный. В каком ещё, к лешему, интерфейсе? Или Вы имеете ввиду оконное приложение? Тогда вопрос глупый, поскольку очевидно, что нет. Если Вам нужно оконное приложение, то на чём именно оно Вам нужно? Delphi, Lazarus (FPC), Pascal ABC, Pascal ABC.NET? 0

@sergo2023 0 / 0 / 0 Регистрация: 14.04.2019 Сообщений: 7
	15.04.2019, 18:29
	Извините но я могу составить программу, и с интерфейсом не разбираюсь, но мне нужна просто имена такая же программа с интерфейсом 0

@Cyborg Drone Модератор 10422 / 5710 / 3401 Регистрация: 17.08.2012 Сообщений: 17,366
	15.04.2019, 18:48
	Вы не ответили на вопрос. Выясните, что именно Вам нужно. 0