Program n1; const maxm = 50; maxn = 50; var a:array[1..maxm,1..maxn] of integer; min,max,i,j,n,m,x,maxi,mini:integer; begin write('Введите размеры матрицы (N*M): '); readln(n,m); writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:'); min:=maxint; max:=-maxint-1; for i:=1 to n do for j:=1 to m do begin read(a[i,j]); if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end; if a[i,j]<min then begin min:=a[i,j]; mini:=i; end; end;
for j:=1 to m do begin x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x; end;
writeln('Матрица после преобразования:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end;
Тема вирусы и антивирусы очень обширная, можно много найти информации. Еще можно сделать презентацию о том, как делать презентацию. Всякие прибамбасы там какие бываю, рассказать)) И желательно сделать самому и вставить фотки с экрана собственного компа, училки любят, когда ученики применяют свои фотки))) Ну, еще очень интересная тема про значение информационных технологий в наше время. Т.е. заголовок может звучать так: "Выбирай ИТ!" ИТ - информационные технологии. Ну, в общем, как-то так) Удачи с презентацией!)
const maxm = 50;
maxn = 50;
var a:array[1..maxm,1..maxn] of integer;
min,max,i,j,n,m,x,maxi,mini:integer;
begin
write('Введите размеры матрицы (N*M): ');
readln(n,m);
writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:');
min:=maxint; max:=-maxint-1;
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end;
if a[i,j]<min then begin min:=a[i,j]; mini:=i; end;
end;
for j:=1 to m do
begin
x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x;
end;
writeln('Матрица после преобразования:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.