Все элементы массива, которые больше среднего арифметического заменить на 0
program lab; var a:array [1..30] of integer; i,n,s,k:integer; sr:real; begin
writeln('razmer massiva'); readln(n); for i:=1 to n do begin writeln('a[',i,']='); readln(a[i]); end; s:=0;sr:=0;k:=0; for i:=1 to n do
begin k:=k+1; s:=s+a[i]; end; sr:=s/k; for i:=1 to n do begin
if a[i]>sr then a[i]:=0; end; for i:=1 to n do write(a[i],' '); readln;
end.
Дана квадратная матрица, найти макс среди расположенных ниже побочной диагонали
const nmax=20; var a: array[1..nmax,1..nmax] of integer; n,i,j,max1,max2: integer; begin write('‚Введите размер матрицы n: ');
readln(n); writeln('‚Введите значение элементов:');
for i:=1 to n do for j:=1 to n do begin write('a[',i,',',j,'] = ');
readln(a[i,j]); end; writeln; max1:=a[1,1]; max2:=a[1,n]; for i:=1 to n do
begin for j:=1 to n do begin write(a[i,j]:4);
if (i+j<n+1)and(a[i,j]>max1) then max1:=a[i,j];
if (i+j>n+1)and(a[i,j]>max2) then max2:=a[i,j];
end; writeln; end;
writeln('Максимальный элемент на побочной диагонали и выше: ',max1);
writeln('Максимальный элемент на побочной диагонали и ниже: ',max2);
readln; end.
Дана квадратная матрица, найти мин элемент среди расположенных выше главной диагонали
uses crt; var a: array [1..100,1..100] of integer; i,j:byte; N,m,min:integer;
begin clrscr; write('‚Введите размер матрицы N='); readln(N); randomize;
for i:=1 to N do for j:=1 to N do begin a[i,j]:=random(9); end;
for i:=1 to N do for j:=1 to N do begin writeln('a[',i,',',j,']=',a[i,j],' ');
end; writeln(''); if N>1 then begin min:=a[1,2]; for i:=1 to N do
for j:=1 to N do begin if i<j then if a[i,j]<min then min:=a[i,j];
end; writeln('min=',min:1); end else writeln('HET min'); readln; end.
Дана квадратная матрица. Найти мин значение среди элементов расположенных ниже главной диагонали
program lab; var a:array [1..30,1..30] of integer; i,j,n,min:integer; begin
writeln('razmer massiva'); readln(n); for i:=1 to n do for j:=1 to n do
begin writeln('a[',i,',',j,']='); readln(a[i,j]); end; min:=a[1,1]; for i:=1 to n do
for j:=1 to n do begin if i>j then begin if a[i,j]<min then min:=a[i,j];
end; end; writeln(min); readln; end.
Дана квадратная матрица. Найти среднее арифметическое элементов расположенных выше главной диагонали
program lab; var a:array [1..30,1..30] of integer; i,j,n,s,k:integer; sr:real;
|
|
begin writeln('razmer massiva'); readln(n); for i:=1 to n do for j:=1 to n do
begin writeln('a[',i,',',j,']='); readln(a[i,j]); end; s:=0; k:=0; sr:=0;
for i:=1 to n do for j:=1 to n do begin if i>j then begin s:=s+a[i,j];
k:=k+1; end; end; sr:=s/k; writeln(sr:3); readln; end.
Дана квадратная матрица найти минимальный среди расположенных на главной диагонали
uses crt; const n=4; var a:array[1..n,1..n]of integer; c:array[1..n]of integer;
i,j,min:integer; begin clrscr; randomize; writeln('Исходный массив');
for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=-50+random(100);
write(a[i,j]:4); end; writeln; end; min:=1; for i:=1 to n do
if a[i,i]<a[min,min] then min:=i; writeln('MIN - ',min,' = ',a[min,min]);
for j:=1 to n do begin c[j]:=0;
for i:=1 to n do if a[i,j]=a[min,min] then inc(c[j]); end; writeln; for i:=1 to n do write(c[i],' '); readln; end.
Дана квадратная матрица найти сумму элем на побочной диагонали
Program maxim; Uses crt; var b:array [1..100,1..100] of real;
i,j,n:integer; sum:real; begin clrscr;
Writeln (' vvedite razmernost matrici '); Readln (n); for i:=1 to n do
for j:=1 to n do begin write ('B[',i,',',j,']='); Readln (b[i,j]); end;
writeln (' Polychena matrica '); for i:=1 to n do begin for j:=1 to n do
Write (' ',b[i,j]:4:2,' '); writeln; end; writeln; sum:=0;
for j:=n-i+1 to n do sum:=sum+b[i,j]; writeln ('Summa elementov = ',sum:4:2);
Readln end.
Изменить все элементы в квадратной матрице на противоположные по знаку, если их абсолютное значение меньше среднего арифметического значения
program lab; var a:array [1..30,1..30] of integer; i,j,n,s,k:integer;
sr:real; begin writeln('razmer massiva'); readln(n); for i:=1 to n do
for j:=1 to n do begin writeln('a[',i,',',j,']='); readln(a[i,j]); end;
s:=0;sr:=0;k:=0; for i:=1 to n do for j:=1 to n do begin k:=k+1;
s:=s+a[i,j]; end; sr:=s/k; for i:=1 to n do for j:=1 to n do
begin if a[i,j]<sr then a[i,j]:=a[i,j]-2*a[i,j]; end; for i:=1 to n do
begin for j:=1 to n do writeln(a[i,j],' '); end; readln; end.
Найти количество положительных элементов в массиве на четных местах
program lab; var a:array [1..30] of integer; i,n,k:integer; begin
writeln('razmer massiva'); readln(n); for i:=1 to n do begin
writeln('a[',i,']='); readln(a[i]); end; k:=0; for i:=1 to n do
begin if a[i]>0 then begin if (i mod 2=0) then k:=k+1;
end; end; writeln(k,' '); readln; end.
|
|
Найти количество элементов больших среднего арифметического всех его элементов
program l; var i,n,s,k,kl:integer; sr:real; a:array [1..30] of integer;
begin writeln('razmer'); readln(n); for i:=1 to n do
begin writeln('a[',i,']='); readln(a[i]); end; k:=0; s:=0; sr:=0;
for i:=1 to n do begin k:=k+1; s:=s+a[i]; end; sr:=s/k; kl:=0;
for i:=1 to n do if (a[i])>sr then kl:=kl+1; writeln('kol', kl:2);
readln; end.
Найти количество элементов в массиве абсолютная величина которых больше среднего арифметического значения
program l; var i,n,s,k,kl:integer; sr:real; a:array [1..30] of integer;
begin writeln('razmer'); readln(n); for i:=1 to n do begin
writeln('a[',i,']='); readln(a[i]); end; k:=0; s:=0; sr:=0; for i:=1 to n do
begin k:=k+1; s:=s+a[i]; end; sr:=s/k; kl:=0; for i:=1 to n do
if abs(a[i])>sr then kl:=kl+1; writeln('kol', kl:2); readln; end.
найти наименьшее из нечетных и количество четных элементов одномерного массива
var a:array [1..10] of integer; i,j:byte; begin randomize; for i:=1 to 10 do begin
a[i]:=random(30); write(a[i],' '); end; writeln;
writeln('номера нечетных элементов'); j:=0; for i:=1 to 10 do
if a[i] mod 2<>0 then begin write(i,' '); inc(j); end; writeln;
writeln('кол-во нечетных элементов'); writeln(j); readln end.