uses crt,graphABC;
var x,y:integer;
m:char;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
write ('Введите число от 1 до 3-выбор фигуры. 1 - треугольник, 2 - квадрат, 3 - круг);
read (m);
clearwindow;
hidecursor;
case m of
'1': begin
setpencolor(clRed);
line (xc-100,yc+50,xc+100,yc+50);
line (xc+100,yc+50,xc,yc-100);
line(xc,yc-100,xc-100,yc+50);
floodfill(xc,yc,clRed);
readkey;
end;
'2': begin
setpencolor(clGreen);
rectangle(xc-50,yc-50,xc+50,yc+50);
floodfill(xc,yc,clGreen);
readkey;
end;
'3': begin
setpencolor(clBlue);
circle (xc,yc,100);
floodfill(xc,yc,clBlue);
readkey;
end;
end.
```
var a:array[1..100,1..100]of integer;
N, M, i, j, mini, minj, maxi, maxj :integer;
begin
write('N, M -> ');
readln(N, M); {считываем размер матрицы}
write('Input matrix -> ');
for i:=1 to N do for j:=1 to M do
begin
write('A[',i,',',j,'] -> ');
readln(a[i, j]);
end; {считываем саму матрицу}
readln;
mini:=1;
minj:=1;
maxi:=2;
maxj:=2;
for i:=1 to N do for j:=1 to M do if a[i,j] > a[maxi, maxj] then
begin
maxi := i;
maxj := j;
end else if a[i, j] < a[mini, minj] then
begin
mini := i;
minj := j;
end;
writeln('MAX = A[',maxi,',',maxj,'] = ', a[maxi, maxj]);
writeln('MIN = A[',mini,',',minj,'] = ', a[mini, minj]);
readln;
end. ```
1,3,4;
№2
1-в;
2-г;
3-а.