Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6461
Последний выпуск: 19.06.2015

Помогите решить задачу в Delphi

83K
11 июня 2012 года
ostryak5
1 / / 11.06.2012
Заполнить двухмерный массив M*N случайными целыми числами из диапазона [-40,40]. Определить : минимальное значение для элементов, расположенных на главной диагонали, и максимальное значение для элементов, расположенных на побочной диагонали.
83K
11 июня 2012 года
nb-dos
1 / / 11.06.2012
var a:array[1..10000,1..10000] of integer;
n,m,i,j,min,max:integer;
Begin
Readln(n,m);
For i:=1 to n do
For j:=1 to m do
a[i,j]:=random(80)-40;
min:=a[1,1];
For i:=2 to n do if a[i,i]<min then min:=a;
max:=[n,1];
For i:=2 to n do if a[m-i-1,i]>max then max:=a[m-i-1,i];
Writeln(min,max);
End.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог