Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
rew438125
1 / 1 / 0
Регистрация: 21.11.2016
Сообщений: 22
#1

Двумерные массивы

21.11.2016, 14:38. Просмотров 491. Ответов 3
Метки нет (Все метки)

9. Обработка двумерных массивов:

- В двумерном массиве, состоящем из целочисленных элементов, поменять местами
в каждой строке наибольший и наименьший элементы.

-Дана матрица A(n×n). Сформировать одномерный массив из отрицательных
элементов этой матрицы, расположенных ниже главной диагонали.

-Для целочисленной матрицы найти для каждой строки число элементов, кратных
пяти, и наибольший из полученных результатов
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2016, 14:38
Ответы с готовыми решениями:

Двумерные массивы
Помогите решить В квадратной матрице размером M*M, имеющий имя MKM,...

Двумерные массивы
Тема 10. «двумерные Указание: для каждой задачи создаme aлrориrм и программу....

двумерные массивы
Дан двумерный массив размером n*m заполненный случайным образом. 1. заменить...

двумерные массивы
1. В матрице А(8,8) найти сумму элементов главной диагонали.

Двумерные массивы
Дана целочисленная прямоугольная матрица. Определить: • количество столбцов,...

3
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27954 / 15673 / 959
Регистрация: 15.09.2009
Сообщений: 67,837
Записей в блоге: 78
21.11.2016, 14:44 #2
это одна задача или три в одном?
0
KatrinLuxury
12 / 12 / 9
Регистрация: 14.11.2016
Сообщений: 243
21.11.2016, 15:45 #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
uses crt;
var a:array[1..100,1..100] of integer;
i,j,n,m,max,min:integer;
begin write ('Введите количество строк: ');
 read(n); writeln; write ('Введите количество элементов в строке: ');
  read(m); writeln; writeln('Введите массив: ');
  for i:=1 to n do begin
  for j:=1 to m do begin
  write(' a[',i,',',j,']=');
   read(a[i,j]);
    end;
     writeln;
     end;
     writeln;
     writeln('Исходный массив: ');
     for i:=1 to n do begin
      for j:=1 to m do
      write(a[i,j],' ');
      writeln;
      end;
      writeln;
       writeln('Конечный массив: ');
        for i:=1 to n do begin
        min:=a[i,1];
        max:=a[i,1];
        for j:=2 to m do begin
        if (min>a[i,j]) then
         min:=a[i,j];
         if (max<a[i,j]) then max:=a[i,j];
end;
for j:=1 to m do begin
if (a[i,j]=min) then a[i,j]:=max else
if (a[i,j]=max) then a[i,j]:=min;
write(a[i,j],' ');
end;
writeln;
end;
end.
Добавлено через 6 минут
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
uses crt;
var t:array[1..20,1..20] of integer;
    n,i,j,k,max,imax:integer;
begin
clrscr;
write('Введите размер матрицы n=');
readln(n);
for i:=1 to n do
for j:=1 to n do
   begin
    write('t[', i, ',', j, '] ');
    readln(t[i,j]);
   end;
clrscr;
writeln('Матрица:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(t[i,j]:4);
    writeln;
  end;
max:=0;
imax:=1;
for i:=1 to n do
  begin
   k:=0;
   for j:=1 to n do
   if t[i,j] mod 5=0 then
   k:=k+1;
   writeln('В строке ',i,' ',k,' элементов');
   if k>max then
     begin
       max:=k;
       imax:=i;
     end;
  end;
writeln('Наибольшее количество элемеентов =',max,' в строке ',imax);
readln
end.
0
rew438125
1 / 1 / 0
Регистрация: 21.11.2016
Сообщений: 22
21.11.2016, 20:05  [ТС] #4
3 ЗАДАЧИ
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2016, 20:05

Двумерные массивы
здравствуйте, помогите с задачей на двумерные массивы

Массивы двумерные
Ребята нужна срочно ваша помощь !!!! Даны два двумерных массива одинаково...

Двумерные массивы
Даны два двумерных массива одинаковой размерности. Построить третий массив,...


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

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

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