С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
tut
1 / 1 / 0
Регистрация: 09.12.2011
Сообщений: 11
1

Дан двумерный массив размером 14х14.

09.12.2011, 11:55. Просмотров 1101. Ответов 2
Метки нет (Все метки)

Постановка задачи
Задать элементы двумерного массива, используя датчик случайных чисел, и выполнить обработку массива в соответствии с заданием в конкретном варианте
Методические указания
Исходные данные должны включать и положительные числа, и отрицательные, и нули.
1. Дан двумерный массив размером 14х14. Найти сумму всех элементов этого массива больших элемента, стоящего в левом верхнем углу.
2. Дан двумерный массив размером 13х12. Найти наибольший элемент массива и указать сколько раз он встречается в массиве.
3. Дан двумерный массив размером 16х16. Найти наибольший элемент и указать, в какой строке он находится.
 Комментарий модератора 
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2011, 11:55
Ответы с готовыми решениями:

Дан двумерный массив размером 2х3.
№28 Дан двумерный массив размером 2х3. 3аменить все четные элементы на их...

дан двумерный массив размером n x m,заполненый случайными числами.
дан двумерный массив размером n x m,заполненый случайными...

Дан двумерный массив размером 8*7, заполненный случайным образом :
Самый простой способ - нажать Print Screen на клавиатуре и потом, открыв...

Двумерный массив размером n*m
1)в двумерном массиве n*m.Найти количество элементов равных максимальному и...

Дан целочисленный массив размером N. Отсортировать массив по убыванию. Вычислить сумму первого и последнего элемента массива.
Дан целочисленный массив размером N. Отсортировать массив по убыванию....

2
rainer
0 / 0 / 3
Регистрация: 07.11.2011
Сообщений: 4
09.12.2011, 14:32 2
Лучший ответ Сообщение было отмечено tut как решение

Решение

2.
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
Program maxel;
        const nmax=15;mmax=20;
        Type ar=array[1..nmax,1..mmax] of integer;
        var a:ar;
            k,i,n,j,max,m:integer;
Procedure vvoddm(var b:ar;var x,y:integer);
          var t,v:integer;
              begin
                   x:=13;y:=12;
                   for t:=1 to x do
                       for v:=1 to y do b[t,v]:=random(x*y)- x*y div 2;
              end;
Procedure Print(b:ar;x,y:integer);
          var t,v:integer;
              begin
                   for t:=1 to x do
                   begin
                      for v:=1 to y do write(a[t,v]:4);
                                   writeln;
                   end;
              end;
Function maxo(b:ar;x,y:integer):integer;
         var t,v,max1:integer;
             begin
                  max1:=b[1,1];
                   for t:=1 to x do
                    for  v:=1 to y do if b[t,v]>max1 then max1:=b[t,v];
                   maxo:=max1;
             end;
BEGIN
     Randomize;
     vvoddm(a,n,m);
     writeln('usxodnai matrica: ');
     Print(a,n,m);
     max:=maxo(a,n,m);
     for i:=1 to n do
       for j:=1 to m do if a[i,j]=max then k:=k+1;
     writeln('max = ',max);
     writeln ('kol-vo max: ',k);
     readln;
END.
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Program maxel;
        const nmax=20;
        Type ar=array[1..nmax,1..nmax] of integer;
        var a:ar;
            k,i,n,j,max,m:integer;
Procedure vvoddm(var b:ar;var x:integer);
          var t,v:integer;
              begin
                   x:=16;
                   for t:=1 to x do
                       for v:=1 to x do b[t,v]:=random(x)- x div 2;
              end;
Procedure Print(b:ar;x:integer);
          var t,v:integer;
              begin
                   for t:=1 to x do
                   begin
                      for v:=1 to x do write(a[t,v]:4);
                                   writeln;
                   end;
              end;
Function maxo(b:ar;x:integer):integer;
         var t,v,max1:integer;
             begin
                  max1:=b[1,1];
                   for t:=1 to x do
                    for  v:=1 to x do if b[t,v]>max1 then max1:=b[t,v];
                   maxo:=max1;
             end;
BEGIN
     Randomize;
     vvoddm(a,n);
     writeln('usxodnai matrica: ');
     Print(a,n);
     max:=maxo(a,n);
     i:=1;j:=1;
     while a[i,j]<>max do
                             begin
                                   j:=j+1;
                              if j=m then i:=i+1;
                             end;
       k:=i;             
     writeln('max = ',max);
     writeln ('s stroke  max naxod.: ',k);
     readln;
0
tut
1 / 1 / 0
Регистрация: 09.12.2011
Сообщений: 11
13.12.2011, 20:18  [ТС] 3
спасибо!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2011, 20:18

Задана матрица (двумерный массив) A размером N x М
Добрый вечер Форумчане!!! Помогите пожалуйста с написанием программы на...

Двумерный массив.Дан массив 5 х 5. Определить сумму элементов тех строк, где диагональный элемент равен нулю и записать их в отдельный массив.
помогите составить программу. во задание:Дан массив 5 х 5. Определить сумму...

Заполнить двумерный массив размером 7x7 следующим образом
1001001 0101010 0011100 1111111 0011100 0101010 1001001 Добавлено...


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

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

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