2.1 Запишите основные характеристики вашего домашнего монитора.
Запишите, как вы их определили. Дайте их расшифровку.
1.Рассмотрите классификацию мониторов. Почему, на ваш взгляд,
ЭЛТ-мониторы уступили рынок ЖК-моделям?
2. Перечислите основные характеристики ЖК-мониторов. Какие из
них Вы будете использовать при выборе монитора?
3. Какие типы матриц современных мониторов вы знаете?
4. Дайте подробную характеристику одной из матриц.
5. На основе полученной информации предложите современный
монитор из:
 бюджетного;
 базового;
 средне-высокого;
 высокого сегмента.
Обоснуйте свой выбор, дав характеристику основных параметров
выбранного монитора.

Program chik;
var a:array[1..100,1..100]of integer;
n,m,i,j:integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
for j:=m downto 1 do
if(a[i,j] mod 2=0)then a[i,j]:=a[i,j]+a[i,1];
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.
n,m-размеры матрицы
a[i,j]-элементы матрицы
пример
n=3 m=3
1 2 3
4 5 6
7 8 9

вывод:
1 3 3 
8 5 10
7 15 9 
a[1,2]:=a[1,2]+a[1,1]=2+1=3
a[2,1]:=a[2,1]+a[2,1]=4+4=8
..
но чтобы первый элемент строки не изменился перед тем как нам нужно будет проверит другие элементы поэтому for j:=m downto 1 
делаем т.е с конца строки проверяем чтобы первый эл.строки матрицы не изменилась
Надеюсь всё понятно

Var 
a: array[1..n] of integer; 
k, i, m: byte; 
min: integer;

begin 
Write('Razmer massiva: '); 
Readln(k); 
if (k < 0) or (k > 100) then     
begin       
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');       
Readln;       
Exit;     
end; 
Randomize; 
Writeln('Ishodn. massiv: '); 
for i:=1 to k do     
begin       
a[i]:=Random(101)-50;       
write(a[i]:4);     
end; 
min:=a[1]; 
for i:=2 to k do   
if a[i] < min then       
begin         
min:=a[i];         
m:=i;       
end; 
a[m] := a[1]; 
a[1] := min; 
Writeln; 
Writeln('Min element = ', min:4, ' v posicii ', m:3); 
Writeln('Rezult. massiv: '); 
for i:=1 to k do     
write(a[i]:4); 
readln;
end.