Найти сумму элементов той строки матрицы, в которой расположен максимальный элемент

18.12.2011, 22:50. **Показов** 2355. **Ответов** 2

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

1 задача)Найти сумму элементов той строки массива a(3x3), в которой расположен максимальный элемент матрицы.
2 задача)Найти наибольшую сумму из сумм каждой строки массива M(5х5)
3 задача)Найти сумму элементов того столбца массива a(3x3), в котором расположен минимальный элемент матрицы.
4 задача)Дан массив A(10) и массив B(3x3) в массиве B заменить нулями те элементы, которые имеют нечётную сумму индексов и превосходят среднее арифметическое значение элементов массива A.
5 задача)Вычислить сумму тех столбцов массива A(5x5) последний элемент которых равен элементу, стоящему на главное диагонали.

Комментарий модератора

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

@Alkatrazz · 19.12.2011, 02:03

задача1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var i,j,k:integer;
a:array [1..3,1..3] of real;
max,sum:real;
begin
clrscr;
writeln ('Vvedite elementy');
for i:=1 to 3 do begin
for j:=1 to 3 do begin
write ('a[',i,',',j,']=');read(a[i,j]);
end;end;
max:=a[1,1];
for i:=1 to 3 do begin
for j:=1 to 3 do begin
if a[i,j]>max then begin
max:=a[i,j];k:=i;end;
end;end;
sum:=0;
for j:=1 to 3 do begin
sum:=sum+a[k,j];end;
writeln ('Summa  ',k,' -stroki ravna    ',  sum:2:2);
readkey
end.

Добавлено через 6 минут
задача3(измененная 1)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var i,j,k:integer;
a:array [1..3,1..3] of real;
min,sum:real;
begin
clrscr;
writeln ('Vvedite elementy');
for i:=1 to 3 do begin
for j:=1 to 3 do begin
write ('a[',i,',',j,']=');read(a[i,j]);
end;end;
min:=a[1,1];
for i:=1 to 3 do begin
for j:=1 to 3 do begin
if a[i,j]<min then begin
min:=a[i,j];k:=j;end;
end;end;
sum:=0;
for i:=1 to 3 do begin
sum:=sum+a[i,k];end;
writeln ('Summa  ',k,' -stolbca ravna    ',  sum:2:2);
readkey
end.

Добавлено через 9 минут
задача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
uses crt;
var i,j,k:integer;
a:array[1..10]of real;
b:array [1..3,1..3] of real;
sr,sum:real;
begin
clrscr;
writeln ('Vvedite elementy A');
for k:=1 to 10 do begin
write ('a[',k,']=');read(a[k]);end;
writeln ('Vvedite elementy B');
for i:=1 to 3 do begin
for j:=1 to 3 do begin
write ('b[',i,',',j,']=');read(b[i,j]);
end;end;
sum:=0;
for k:=1 to 10 do begin
sum:=sum+a[k];end;
sr:=sum/10;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
if (b[i,j]>sr) and ((i+j)mod 2<>0) then
b[i,j]:=0;end;end;
writeln ('Matrica B');
for i:=1 to 3 do begin
for j:=1 to 4 do
write(b[i,j]:3:3,'  ');
writeln;
end;
readkey
end.

20.12.2011, 20:05

Спасибо большое) помогите ещё две...срочно до завтра надо(

Новые блоги и статьи Все статьи Все блоги /
Согласованность транзакций в MongoDB Codd 30.04.2025 MongoDB, начинавшая свой путь как классическая NoSQL система с акцентом на гибкость и масштабируемость, сильно спрогрессировала, включив в свой арсенал поддержку транзакционной согласованности. Это. . .	Продвинутый ввод-вывод в Java: NIO, NIO.2 и асинхронный I/O Javaican 30.04.2025 Когда речь заходит о вводе-выводе в Java, классический пакет java. io долгие годы был единственным вариантом для разработчиков, но его ограничения становились всё очевиднее с ростом требований к. . .	Обнаружение объектов в реальном времени на Python с YOLO и OpenCV AI_Generated 29.04.2025 Компьютерное зрение — одна из самых динамично развивающихся областей искусственного интеллекта. В нашем мире, где визуальная информация стала доминирующим способом коммуникации, способность машин. . .	Эффективные парсеры и токенизаторы строк на C# UnmanagedCoder 29.04.2025 Обработка текстовых данных — частая задача в программировании, с которой сталкивается почти каждый разработчик. Парсеры и токенизаторы составляют основу множества современных приложений: от. . .	C++ в XXI веке - Эволюция языка и взгляд Бьярне Страуструпа bytestream 29.04.2025 C++ существует уже более 45 лет с момента его первоначальной концепции. Как и было задумано, он эволюционировал, отвечая на новые вызовы, но многие разработчики продолжают использовать C++ так, будто. . .
Слабые указатели в Go: управление памятью и предотвращение утечек ресурсов golander 29.04.2025 Управление памятью — один из краеугольных камней разработки высоконагруженных приложений. Го (Go) занимает уникальную нишу в этом вопросе, предоставляя разработчикам автоматическое управление памятью. . .	Разработка кастомных расширений для компилятора C++ NullReferenced 29.04.2025 Создание кастомных расширений для компиляторов C++ — инструмент оптимизации кода, внедрения новых языковых функций и автоматизации задач. Многие разработчики недооценивают гибкость современных. . .	Гайд по обработке исключений в C# stackOverflow 29.04.2025 Разработка надёжного программного обеспечения невозможна без грамотной обработки исключительных ситуаций. Любая программа, независимо от её размера и сложности, может столкнуться с непредвиденными. . .	Создаем RESTful API с Laravel Jason-Webb 28.04.2025 REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .	Дженерики в C# - продвинутые техники stackOverflow 28.04.2025 История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .

mAkAs1k
	20.12.2011, 20:05
	Спасибо большое) помогите ещё две...срочно до завтра надо(

Опции темы

Найти сумму элементов той строки матрицы, в которой расположен максимальный элемент

Решение