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

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

26.10.2013, 17:13. Просмотров 297. Ответов 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
Другие темы раздела
Turbo Pascal Получить новый массив путем деления всех элементов строки матрицы на наименьший по модулю элемент строки http://www.cyberforum.ru/turbo-pascal/thread988682.html
16. Дан двумерный массив. Получить новый массив путем деления всех элементов строки на наименьший по модулю элемент строки. Если наименьший элемент некоторой строки равен 0, то элементы этой строки...
Turbo Pascal Определить произведение элементов, занимающих 1,6, 11 места в массиве Дан массив V целых чисел. Надо определить: 1) Произведение элементов, занимающих 1, 6, 11 места в массиве. 2) Сумму элементов, занимающих 4 места в массиве. 3) Сформировать новый массив К из... http://www.cyberforum.ru/turbo-pascal/thread988669.html
Turbo Pascal Метод быстрой сортировки Хоара
Дан одномерный числовой массив. Выполнить сортировку элементов массива по возрастанию, используя метод быстрой сортировки Хоара.
Turbo Pascal Сделать в паскале
Дан массив c(10). Сформировать массивы A и B , предварительно определив их длину. В один из них включите элементы массива C , которые больше их среднего арифметического , а в другой - которые...
Turbo Pascal Проверить наличие числа в массиве http://www.cyberforum.ru/turbo-pascal/thread988617.html
Нужно запросить у пользователя последовательно 20 чисел, каждое из которых должно быть в интервале от 10 до 100 включительно. После того, как программа прочла очередное число, она должна определить:...
Turbo Pascal Результаты игр по футболу хранятся в массиве Результаты игр по футболу хранятся в массиве. Каждые три последовательных элемента массива содержат соответственно номер игры, количество забитых и количество пропущенных мячей. Определите и выведите... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru