Вычислить сумму отрицательных элементов матрицы

@Bushido · Регистрация: 11.10.2010

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

1.Вычислить сумму отрицательных элементов матрицы a[n,n].Сам двумерный массив задан произвольно.
2.Определить наименьший элемент двумерного массива.Сам двумерный массив задан произвольно.

@mamedovvms · 19.10.2010, 13:08

неужели сложно воспользоваться поиском?

@dr.curse · 19.10.2010, 13:10

1.Вычислить сумму отрицательных элементов матрицы a[n,n].Сам двумерный массив задан произвольно.

Pascal
1
2
3
4
5
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<0 then s=s+a[i,j];
end;

2.Определить наименьший элемент двумерного массива.Сам двумерный массив задан произвольно.

Pascal
1
2
3
4
5
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<min then min:=a[i,j];
end;

@mamedovvms · 19.10.2010, 13:33

во второй задаче перед циклом нужно прописать min:=a[1,1];

@Bushido · 20.10.2010, 17:28 **[ТС]**

Короче вот:

1.задача.

Program NoName;
var a:array [1..100,1..100] of integer;
i,j,n,m,s:integer;
Begin
writeln('Ââåäèòå ÷èñëî ñòðîê è ñòîëáöîâ');
readln(n);
s:=0;
for i := 1 to n do
for j := 1 to n do
a[i,j] := random(20)-5;
for i := 1 to n do begin
for j := 1 to n do
write ( a[i,j]:4 );
writeln;end;
for i:=1 to n do
for j:=1 to n do begin
if a[i,j]<0 then s:=s+a[i,j];
end;
writeln;
if s<0 then writeln('Ñóììà îòðèöàòåëüíûõ ýëåìåíòîâ ðàâíà:',s:2)
else writeln('Â ìàññèâå íåò îòðèöàòåëüíûõ ÷èñåë');
end.
2.задача.

Program Noname;
var a : array [1..100, 1..100] of integer;
n,i,j,c,b,d : integer;
Begin
writeln('Ââåäèòå ÷èñëî ñòðîê è ñòîëáöîâ');
readln(n);
for i := 1 to n do
for j := 1 to n do
a[i,j] := random(20)-5;
for i := 1 to n do begin
for j := 1 to n do
write ( a[i,j]:4 );
writeln;end;
c:= 1;b:= 1;
d:= a[c,b];
for i:= 1 to n do
for j:= 1 to n do
if d > a[i,j] then begin
c:=i;b:=j;
d:=a[c,b];end;
writeln('min: ', d:4);
end.

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

@Bushido 1 / 1 / 0 Регистрация: 11.10.2010 Сообщений: 10

	Вычислить сумму отрицательных элементов матрицы 19.10.2010, 13:05. Показов 813. Ответов 4 Метки нет (Все метки) 1.Вычислить сумму отрицательных элементов матрицы a[n,n].Сам двумерный массив задан произвольно. 2.Определить наименьший элемент двумерного массива.Сам двумерный массив задан произвольно. 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	19.10.2010, 13:08
	неужели сложно воспользоваться поиском? 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	19.10.2010, 13:33
	во второй задаче перед циклом нужно прописать min:=a[1,1]; 0

@Bushido 1 / 1 / 0 Регистрация: 11.10.2010 Сообщений: 10
	20.10.2010, 17:28 [ТС]
	Короче вот: 1.задача. Program NoName; var a:array [1..100,1..100] of integer; i,j,n,m,s:integer; Begin writeln('Ââåäèòå ÷èñëî ñòðîê è ñòîëáöîâ'); readln(n); s:=0; for i := 1 to n do for j := 1 to n do a[i,j] := random(20)-5; for i := 1 to n do begin for j := 1 to n do write ( a[i,j]:4 ); writeln;end; for i:=1 to n do for j:=1 to n do begin if a[i,j]<0 then s:=s+a[i,j]; end; writeln; if s<0 then writeln('Ñóììà îòðèöàòåëüíûõ ýëåìåíòîâ ðàâíà:',s:2) else writeln('Â ìàññèâå íåò îòðèöàòåëüíûõ ÷èñåë'); end. 2.задача. Program Noname; var a : array [1..100, 1..100] of integer; n,i,j,c,b,d : integer; Begin writeln('Ââåäèòå ÷èñëî ñòðîê è ñòîëáöîâ'); readln(n); for i := 1 to n do for j := 1 to n do a[i,j] := random(20)-5; for i := 1 to n do begin for j := 1 to n do write ( a[i,j]:4 ); writeln;end; c:= 1;b:= 1; d:= a[c,b]; for i:= 1 to n do for j:= 1 to n do if d > a[i,j] then begin c:=i;b:=j; d:=a[c,b];end; writeln('min: ', d:4); end. 0