Найти наименьшее из нечетных и количество четных элементов одномерного массива




Все элементы массива, которые больше среднего арифметического заменить на 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.

 



Поделиться:




Поиск по сайту

©2015-2024 poisk-ru.ru
Все права принадлежать их авторам. Данный сайт не претендует на авторства, а предоставляет бесплатное использование.
Дата создания страницы: 2016-04-26 Нарушение авторских прав и Нарушение персональных данных


Поиск по сайту: