Поменять местами первый максимальный и последний минимальный элементы двумерного массива

24.02.2010, 21:11. **Показов** 2918. **Ответов** 7

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

Помогите пожалуйста решить задачи

1. Поменять местами первый максимальный и последний минимальный элементы двумерного массива
2. Заполнить массив А размерами m*m следующим образом напрмер для m=6
111111
123456
126101521
1410203556
162156126252
и подскажите пожалуста как правильно сделать блкоесхему
заранее списибо)

@yanyk1n · 24.02.2010, 21:21

1)

Pascal

uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
i,j,mini,minj,maxi,maxj,b:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to n do
  begin
    a[i,j]:=-50+random(100);
    write(a[i,j]:4);
  end;
  writeln;
 end;
 
 mini:=1;
 minj:=1;
 maxi:=2;
 maxj:=2;
 
 for i:=1 to n do for j:=1 to n do
 if a[i,j]<=a[mini,minj] then
 begin
  mini:=i;
  minj:=j;
 end else if a[i,j]>a[maxi,maxj] then
 begin
  maxi:=i;
  maxj:=j;
 end 
 
 b:=a[mini,minj];
 a[mini,minj]:=a[maxi,maxj];
 a[maxi,maxj]:=b;
 
 writeln('Преобразовнная матрица');
 for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:4);
  writeln;
 end;
end.

@Slonik · 24.02.2010, 21:35

Блок схемка как то так выглядеть будет. см вложения

@Puporev · 24.02.2010, 21:42

Nastya))))),
Во второй задаче у Вас чушь написана, даже размерность по строкам не сходится, перепишите внимательнее.

Добавлено через 4 минуты
Наверное так было?

Код

1 1  1  1   1   1
1 2  3  4   5   6
1 3  6 10  15  21
1 4 10 20  35  56
1 5 15 35  70 126
1 6 21 56 126 252

24.02.2010, 21:48

да да)

@Unrealler · 24.02.2010, 21:48

Сообщение от Puporev

Наверное так было?
1

Код

 1 1 1 1 1
1 2 3 4 5 6
1 3 6 10 15 21
1 4 10 20 35 56
1 5 15 35 70 126
1 6 21 56 126 252

Скорее всего, т.к. в таком задании a[i,j] должно быть равно a[i-1,j]+a[i,j-1]

@Puporev · 24.02.2010, 21:52

Pascal

uses crt;
var i,j:integer;
    a:array[1..6,1..6] of integer;
begin
clrscr;
for i:=1 to 6 do
 begin
  a[1,i]:=1;
  a[i,1]:=1;
 end;
for i:=2 to 6 do
for j:=2 to 6 do
a[i,j]:=a[i-1,j]+a[i,j-1];
for i:=1 to 6 do
 begin
  for j:=1 to 6 do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

@Slonik · 24.02.2010, 22:28

Вот и вторая блок схемка

Nastya)))))
		1
	Поменять местами первый максимальный и последний минимальный элементы двумерного массива 24.02.2010, 21:11. Показов 2918. Ответов 7 Метки нет (Все метки) Помогите пожалуйста решить задачи 1. Поменять местами первый максимальный и последний минимальный элементы двумерного массива 2. Заполнить массив А размерами m*m следующим образом напрмер для m=6 111111 123456 126101521 1410203556 162156126252 и подскажите пожалуста как правильно сделать блкоесхему заранее списибо)

@Slonik 1 / 1 / 0 Регистрация: 18.02.2009 Сообщений: 9
	24.02.2010, 21:35	3
	Блок схемка как то так выглядеть будет. см вложения Миниатюры 1

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.02.2010, 21:42	4
	Nastya))))), Во второй задаче у Вас чушь написана, даже размерность по строкам не сходится, перепишите внимательнее. Добавлено через 4 минуты Наверное так было? Код 1 1 1 1 1 1 1 2 3 4 5 6 1 3 6 10 15 21 1 4 10 20 35 56 1 5 15 35 70 126 1 6 21 56 126 252 0

@Unrealler 654 / 352 / 113 Регистрация: 11.12.2009 Сообщений: 508
	24.02.2010, 21:48	6
	Сообщение от Puporev Наверное так было? 1 Код 1 1 1 1 1 1 2 3 4 5 6 1 3 6 10 15 21 1 4 10 20 35 56 1 5 15 35 70 126 1 6 21 56 126 252 Скорее всего, т.к. в таком задании a[i,j] должно быть равно a[i-1,j]+a[i,j-1] 0

@Slonik 1 / 1 / 0 Регистрация: 18.02.2009 Сообщений: 9
	24.02.2010, 22:28	8
	Вот и вторая блок схемка Миниатюры 0

Опции темы