Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
dencil
10 / 10 / 22
Регистрация: 23.09.2013
Сообщений: 145
1

Исправить код!

26.10.2013, 17:13. Просмотров 300. Ответов 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
24
25
26
27
28
29
30
31
32
uses crt;
var i,j,min,max :integer;
A:array [1..3,1..3] of integer;
begin
randomize;
for i:= 1 to 3 do
for j:=1 to 3 do
A[i,j]:=random(9);
for i:=1 to 3 do begin
for j:=1 to 3 do
write (A[i,j],' ');
writeln;
end;
min:=A[1,1];
for i:= 1 to 3 do
for j:=1 to 3 do
begin
if A[i,j]<min then
min:=A[i,j];
writeln(min);
end;
max:=A[1,1];
for i:= 1 to 3 do
for j:=1 to 3 do
begin
if A[i,j]>max then
max:=A[i,j];
writeln (max);
end;
writeln ('разность ',max-min);
readln
end.
Суть в том, что нам необходимо найти разницу между максимальным и минимальным элементом двумерного массива.
При этом нам нужно вывести на экран:
1)Сам массив.
2)Минимальный элемент.
3)Максимальный элемент.
4)Разность.
1 и 4 пункт выполняется, а с 2 и 3 беда.(Не нужно писать свой код, лучше исправить мой).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2013, 17:13
Ответы с готовыми решениями:

Исправить код
задание: В целочисленном векторе vectorn переместить в начало все нулевые...

Исправить код
program P4; type school = record nm:integer; name: string; surname:...

Исправить код сортировки
Помогите пожалуйста найти ошибку в теле программы! Вот задание - e) Створіть...

Нужно исправить код
Нужно записать процедуру вывода массива, для исходного. Для конечного...

Как исправить код?
Program sortitovka; var i,n:integer; a:array of integer; procedure...

1
ildwine
Супер-модератор
2986 / 1868 / 1224
Регистрация: 04.03.2013
Сообщений: 4,570
Записей в блоге: 1
26.10.2013, 17:21 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
uses crt;
var i,j,min,max :integer;
A:array [1..3,1..3] of integer;
begin
  randomize;
  for i:= 1 to 3 do
    for j:=1 to 3 do
      A[i,j]:=random(9);
  for i:=1 to 3 do begin
    for j:=1 to 3 do
      write (A[i,j],' ');
    writeln
  end;
  min:=A[1,1];
  max:=A[1,1];
  for i:= 1 to 3 do
    for j:=1 to 3 do
    begin
      if A[i,j]<min then min:=A[i,j];
      if A[i,j]>max then max:=A[i,j]
    end;
writeln('max =', max, ' min = ', min);
writeln ('разность ',max-min);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2013, 17:21

Исправить программный код
Program pr1; uses crt; var x,y,z:array of integer; n,i,j,k,m:integer;...

Кто может исправить код?
Не понимаю, в чём тут ошибка... Голова уже совсем не варит:umnik: Program...

Метод релаксации, исправить код
Помогите найти ошибку, по готовому алгоритму uses crt; var i,j,n:integer;...


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

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

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