Паскаль: написать программу для определения в двумерном массиве целых чисел d[6,6] максимальный элемент под главной диагональю. оформить ввод/вывод массива.
Var a:array [1..100, 1..100] of integer; i,j,max:longint; begin for i:=1 to 4 do for j:=1 to 4 do read(a[i,j]); max:=a[2,1]; for i:=1 to 6 do for j:=1 to 6 do if (a[i,j]>max) and (i>j) then max:=a[i,j]; for i:=1 to 6 do begin for j:=1 to 6 do write(a[i,j],' '); writeln; end; writeln('Максимальный элемент под главной диагональю - ',max); end.
Векторное представление заключается в описании элементов изображения математическими кривыми с указанием их цветов и заполняемости (например, круг и окружность – разные фигуры). Красный эллипс на белом фоне будет описан всего двумя математическими формулами – прямоугольника и эллипса соответствующих цветов, размеров и местоположения. Очевидно, такое описание займет значительно меньше места, чем в первом случае. Еще одно преимущество – качественное масштабирование в любую сторону. Увеличение или уменьшение объектов производится увеличением или уменьшением соответствующих коэффициентов в математических формулах. К сожалению векторный формат становится невыгодным при передаче изображений с большим количеством оттенков или мелких деталей (например, фотографий). Ведь каждый мельчайший блик в этом случае будет представляться не совокупностью одноцветных точек, а сложнейшей математической формулой или совокупностью графических примитивов, каждый из которых, является формулой. Это приводит к утяжелению файла. Кроме того, перевод изображения из растрового в векторный формат (например, программой Adobe Strime Line или Corel OCR-TRACE) приводит к наследованию последним невозможности корректного масштабирования в большую сторону. От увеличения линейных размеров количество деталей или оттенков на единицу площади больше не становится. Это ограничение накладывается разрешением вводных устройств (сканеров, цифровых фотокамер и др.).
Специально для вас выловил ошибки, находящиеся в предыдущем решении. Кому-то не повезло :(
//PascalABC var S : array[1..10000] of integer; A, B, C, i, N, min : integer; W : real; begin write('Укажите размер массива > '); readln(N); write('Вводите элементы массива > '); for i := 1 to N do readln(S[i]);
A := 0; min := S[1]; C := 0; for i := 1 to N do begin if S[i] > 0 then A := A + S[i]; if S[i] < min then begin B := i; min := S[i]; end; if S[i] mod 5 = 0 then C := C + 1; end; W := B + A / (C + 1); writeln('Сумма элементов ', A); writeln('Номер минимального эл-та ', B); writeln('Количество кратных пяти ', C); writeln('Параметр W ', W); end.
i,j,max:longint;
begin
for i:=1 to 4 do
for j:=1 to 4 do read(a[i,j]);
max:=a[2,1];
for i:=1 to 6 do
for j:=1 to 6 do
if (a[i,j]>max) and (i>j) then max:=a[i,j];
for i:=1 to 6 do begin
for j:=1 to 6 do write(a[i,j],' ');
writeln;
end;
writeln('Максимальный элемент под главной диагональю - ',max);
end.