Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Алексей)
0 / 0 / 0
Регистрация: 28.11.2011
Сообщений: 18
1

Вывести на экран максимальный элемент побочной диагонали матрицы

29.11.2011, 17:05. Просмотров 879. Ответов 3
Метки нет (Все метки)

№1 Заполнить двумерный массив 6,5 случайными числами. Найти произведений элементов 4 строки.

№2 Заполнить массив С(4,4). Вывести на экран максимальный эле-мент побочной диагонали.

№3 Для каждого столбца двумерного массива найти сумму отрицатель-ных элементов.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2011, 17:05
Ответы с готовыми решениями:

Вычислить максимальный элемент побочной диагонали матрицы
помогите решить задачи))) 16) Задать размерность (число строк и столбцов),...

Найти максимальный элемент выше побочной диагонали матрицы
Что не так, не выводит данные. Program n1; Var a:arrayof integer; ...

Найти максимальный элемент, расположенный выше побочной диагонали матрицы
В матрице (5,5) найти максимальный элемент, расположенный выше побочной...

Найти максимальный элемент матрицы, расположенный выше побочной диагонали
В матрице A , где 'n' <= 100 найти максимальный элемент, расположенный выше...

Заполнить массив С(4,4). Вывести на экран максимальный эле-мент побочной диагонали
Заполнить массив С(4,4). Вывести на экран максимальный эле-мент побочной...

3
WebMax 2.0
--\.founder./--
562 / 562 / 392
Регистрация: 20.10.2011
Сообщений: 867
29.11.2011, 17:17 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Алексей) Посмотреть сообщение
№1 Заполнить двумерный массив 6,5 случайными числами. Найти произведений элементов 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
uses crt;
 
var a:array [1..6,1..5] of integer;
i,j,x:integer;
 
 
begin
   clrscr;
x:=1;
Writeln('ГЊГ*Г±Г±ГЁГўГ* "ГЂ[6, 5]" : ');
   For i:=1 to 6 do
     begin
       for j:=1 to 5 do
       begin
       randomize;
       a[i,j]:=random(9)+1;
       write(a[i,j]:2);
       end;
     writeln;
     end;
Writeln;
   for i:=1 to 5 do
    x:=x*a[4,i];
Writeln;
     
Writeln('ÏðîèçâåäåГ*ГЁГҐ ГЅГ«-òîâ 4-îé ñòðîêè = ',x);
       
 
 
 
readln;
end.
1
КонецСвета
Почетный модератор
7930 / 3901 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
29.11.2011, 17:28 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

третья
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
uses crt;
var a: array [1..100,1..100] of integer;
    b: array [1..100] of integer;
    n,i,j,sum: integer;
begin
write('n=');
readln(n);
writeln('Dana matriza');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:4);
        end;
    writeln;
    end;
for j:=1 to n do
    begin
    sum:=0;
    for i:=1 to n do
        if a[i,j]<0 then
           inc(sum,a[i,j]);
    b[j]:=sum;
    end;
writeln('Summa otrizatelnyh');
for j:=1 to n do
    write(b[j]:4);
readkey
end.
1
WebMax 2.0
--\.founder./--
562 / 562 / 392
Регистрация: 20.10.2011
Сообщений: 867
29.11.2011, 17:40 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Алексей) Посмотреть сообщение
№2 Заполнить массив С(4,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
uses crt;
const n=4;
var c:array[1..n,1..n] of integer;
i,j,g,x:integer;
 
begin
Writeln('ГЊГ*Г±Г±ГЁГў ГЂ: ');
 for i:=1 to 4 do
   begin
     for j:=1 to 4 do
     begin
     randomize;
     c[i,j]:=random(10);
     write(c[i,j]:3);
     end;
   writeln;
   end;
 g:=c[1,4];
 writeln;
for i:=1 to 3 do
   if c[i+1,n-i]>g then
   g:=c[i+1,n-i];
 
   writeln('ГЌГ*èáîëüøèé ГЅГ«-ГІ Гў ïîáî÷Г*îé äèГ*ГЈГ®Г*Г*ëè = ',g);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2011, 17:40

Положительные элементы строк матрицы с четными номерами разделить на максимальный элемент побочной диагонали
Задана матрица Х, где N&lt;=15. Положительные элементы строк с четными номерами...

Какой из элементов больше: максимальный элемент главной или максимальный элемент побочной диагонали
Для матрицы размерностью n×n (n – нечетное значение) определить, какой из...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru