1.9. Ввести двумерный массив NN A × , вывести его.Найти среднее арифметическое диагональных элементов (главной и побочной). Все элементы большие найденного значения, расположенные над побочной диагональю возвести в квадрат, а расположенные под ней увеличить на минимум всего массива.
2.Ввестицелочисленный двумерный массив NM A × , вывести его. Найти произведение тех элементов, которые нечётны и положительны. Если среди этих элементов встретится максимальный элемент всей матрицы, то не учитывать его в произведении. Найденным произведением заменить предпоследнюю строку матрицы
3.Ввести матрицу NM A × , вывести ее. В каждойстроке матрицы найти k – количество положительных элементов. В строках все элементы после k-го увеличить на сумму положительных элементов этой строки.
4.Ввести квадратную матрицу NN A × , вывести ее.На главную диагональ записать " 1", если сумма положительных элементов в соответствующей строке больше максимума всей матрицы и " 1 − " в противном случае.
5.Дважды вычислить значение выражения, первый разиспользуя процедуру, а второй – функцию.
6.Ввести одномерные массивы 1N X , 2N X .Определить новый вектор- массив 3N X как: ** 3 1 2 XXX =+, где знак «*» означает, что все компоненты этого вектора получены из исходного путём его деления на максимальную компоненту (производится нормировка). (При решении реализовать процедуры ввода и вывода массивов: Vvod1m(A,N,Name) и Vivod1m(A,N,Name); функцию MaxOtr(A,N):<тип массива> – максимум массива; процедуру Delenie(A,N,Chislo) – делениеэлементов массива на значение Chislo; процедуру Form(A1,A2,A3,N) – формирование третьегомассива из пары исходных)
7.Ввести одномерные массивы целых чисел 1 1NX , 22NX , 3 3NX . Определить в каждом массиве среднее арифметическое положительных элементов кратных 5 или 3, и записать его целую часть (встроенная функция целой части: trunc(x))) на место 1-го, последнего и предпоследнего элемента соответствующего массива ( при условии существования среднего арифметического). Вывести массивы до преобразования и после (при невозможности вычислить среднее арифметическое, вывести соответствующее сообщение). (При решении реализовать процедуры ввода и вывода массивов: Vvod1m(A,N,Name), Vivod1m(A,N,Name); а также функцию SrAkr53(A,N):real – среднее арифметическое положительных кратных пяти или трём (функция равна « 1 − », если оно не существует); и процедуру Zamena(A,N,Chislo) – замена первого, последнего и предпоследнего значением Chislo)
uses crt; var i,m,n ,z,s,k,min: integer; a:array [1..20,1..20] of integer;
BEGIN
s:=0;k:=0; clrscr; randomize(); read(m,n); for i:=1 to n do begin for z:=1 to m do begin a[i,z]:=random(8)+1; write(a[i,z]:3,' '); end; writeln; end; {sr znaci} min:=a[1,1]; for i:=1 to n do begin for z:=1 to m do begin if(i = z)or(i+z-1 = n) then begin s:=s+a[i,z]; k:=k+1; end; end; end; writeln; {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^} for i:=1 to n do begin for z:=1 to m do begin if(a[i,z]<min) then min:=a[i,z]; end;
end;
for i:=1 to n do begin for z:=1 to m do begin if(i + z < n) then begin a[i,z]:=sqr(a[i,z]); end; if(i + z > n+1) then begin a[i,z]:=a[i,z]+min; end; end; end;
{v kvadrat i uvelichim} for i:=1 to n do begin for z:=1 to m do begin write(a[i,z]:3); end; writeln; end;
writeln;
writeln(' summa ' , s,' sr znaci ',s/k,' minimum ' , min); END.
