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; <span> end. </span>
Const n=10; var a: array [1..n] of integer; - массив чисел var i,j,s: integer; begin j:=0; s:=0; for i:=1 to n do a[i]:=random(100); for i:= 1 to n do begin if ((a[i] mod 5 = 0) or (a[i] mod 10 = 0)) then begin s:=s+a[i]; j:=j+1; end; end; writeln('число чисел, кратных 5 и 10 = ', j); writeln('сумма чисел = ',s); end.
<span> ЭОР нужны так же, как и другие учебные материалы - для обучения и образования. </span> Данный тип ресурсов является удобным вариантом для дистанционного обучения школьников и студентов (в том числе и людей имеющих проблемы со здоровьем).<span>