i,j,n,m : integer;
max:integer;
tmp,maxIni,maxInj:integer;
mc:array[1..10] of array[1..10] of integer;{Массив чисел}
begin
ClrScr;
Randomize;
Write ('Введите число строк n (n
Найти индекс строки и столбца максимального элемента матрицы А. Поменять местами эту строку и этот столбец с первыми так, чтобы элемент А1,1 был максимальным элементом матрицы.
Размер матрицы ввести с клавиатуры.
1. Саймон Д Информатика. НТ Пресс, 2009-512 с.
2. Соколенко А.Л. Просто как дважды два. ЭКСМО, 2007.- 256 с.
3. Алекс Экслер. Программирование на Pascal: Пособие. НТ - Пресс, 2008.- 128 с.
4. Марина Свиридова. Особенности языка Pascal: Пособие. Академия, 2007 144c.
5. Серогородский В.В. Pascal Самоучитель. Наука и техника, 2007.- 392 с.
ументы, к которым нужно применять действие (если соответствующая вершина помечена идентификатором или является внутренней), либо помогают определить, каким должно быть это действие, в частности знаки
х числа (отр. в доп. коде) по 4 бита на число. Пpогpамма "pаспаковывает" половину этих чисел, старшую тетpаду. Во всем заданном массиве пеpеместить ее на место младшей, левые 4 бита заполнить 0ми ил
HEN'если число нечетное, то коэф. В сумме = -1, иначе 1c = -1ELSE c = 1END IFs = s + i * i * c 'В сумму добавляется текущий членNEXTPRINT "Сумма знакочередующегося ряда квадратов до 10 равна = ", sВы
ое выражение некоторым заранее заданным синтаксическим правилам.Методов синтаксического разбора существует достаточно много, но в основном можно выделить два способа разбора:- Нисходящий разбор. Суть
Главная