Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
yanyk1n
4332 / 1464 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
19.02.2010, 21:43 0

Двумерные массивы. Побочная диагональ.

19.02.2010, 21:43. Просмотров 1495. Ответов 5
Метки (Все метки)

Ответ

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
uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
i,j,max,min,k,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;
 
 min:=1;
 max:=2;
 for i:=1 to n do if a[i,i]<a[min,min] then min:=i else if a[i,i]>a[max,max] then max:=i;
 writeln('MIN - ',min,' = ',a[min,min]);
 writeln('MAX - ',max,' = ',a[max,max]);
 readln;
end.


Вернуться к обсуждению:
Двумерные массивы. Побочная диагональ.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2010, 21:43

Квадратная матрица. Главная и побочная диагональ
Создать квадратную матрицу. Найти максимальное значение строки, параллельной...

Сформировать одномерный массив из его диагональных элементов( диагональ и побочная )
Для заданной квадратной матрицы сформировать одномерный массив из её...

Двумерные массивы
Сформировать матрицу A при помощи произвольно заданной матрицы B.

0
Другие темы раздела
Pascal Перестановка чисел http://www.cyberforum.ru/pascal/thread97321.html
Ребята, есть такое задание: "В матрице (4х5)Нужно создать процедуру которая в каждой строке матрицы перемещает положительные элементы в начало строки, а отрицательные в конец строки, при этом должна...
Pascal Множества и записи Народ хелп! момогите пожалуйста решить задачки: 1. Задан текст из маленьких латинских букв, в конце точка. Напечатать в алфавитном порядке все согласные буквы, которые не входят ни в одно слово, с... http://www.cyberforum.ru/pascal/thread97319.html
Pascal указатель новой строки в файле
в срочном порядке пришлось тему файлов осваивать. Дан тхт файл с некоторым количеством строк, и пробелами в них. По заданию необходимо узнать есть ли пробел в начале новой строки, ну и далее там...
Pascal Переписать в массив Y те элементы исходного массива, которые строго больше своих соседей
Задан целочисленный массив Х из 20 элементов! Переписать в массив Y те элементы исходного массива, которые строго больше своих соседей. Элементы массива Y не должны повторяться! Помогите,...
Pascal Составить программу получения числа , записанного цифрами заданного числа в обратном порядке. http://www.cyberforum.ru/pascal/thread97300.html
Составить программу получения числа , записанного цифрами заданного числа в обратном порядке. Составить программу или подпрограмму . Вводимое число может содержать до 10 цифр . Помогите пж
Pascal Процедура с параметрами, вычисляющая значение функции, заданной в виде графика Написать программу, использующую процедуру с параметрами, котороя по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры.... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru