шпоры программы
.docxв одномерном массива найти наибольшее и, при котором а[и]=0
program l; var i,n,k:integer; 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;
for i:=1 to n do begin if a[i]=0 then k:=i; end; writeln(k); readln;
end.
все элементы массива, которые больше среднего арифметического заменить на 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.
найти произведение наибольшего и наименьшего чисел в массиве
program lab; var a:array [1..30] of integer; i,n,p,max,min:integer;
begin writeln('razmer massiva'); readln(n); for i:=1 to n do begin
writeln('a[',i,']='); readln(a[i]); end; max:=a[1]; min:=a[1];
for i:=1 to n do begin if a[i]>max then begin
max:=a[i]; end; end; for i:=1 to n do begin if a[i]<min then
begin min:=a[i]; end; end; p:=1; p:=min*max; writeln(p);
readln; end.
найти сумму положительных элементов в массиве на нечетных местах
program lab; var a:array [1..30] of integer; i,n,s:integer; begin
writeln('razmer massiva'); readln(n); for i:=1 to n do begin writeln('a[',i,']=');
readln(a[i]); end; s:=0; for i:=1 to n do begin if (i mod 2<>0) then
s:=s+a[i]; end; writeln(s,' '); readln; end.
найти сумму положительных элементов следующих за максимальным
program l; var i,n,max,k:integer; s:integer; 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; max:=a[1]; for i:=1 to n do
begin if a[i]>max then begin max:=a[i]; k:=i; end; end;
for i:=k+1 to n do s:=s+a[i]; writeln('summa ', s); readln; end.
поменять местами максимальный и минимальный элемент
program z_array; uses crt; var a:array[1..100] of integer; n,i,min,max:byte;
temp:integer; begin clrscr; writeln('‚Введите размерность массива ');
readln(n); writeln('‚Введите элементы массива '); for i:=1 to n do
begin write('a[',i,']= '); readln(a[i]); end; writeln('Данный массив');
for i:=1 to n do write(a[i],' '); min:=1; max:=1; for i:=2 to n do
begin if a[i]>a[max] then max:=i; if a[i]<a[min] then min:=i; end;
temp:= a[min]; a[min]:=a[max]; a[max]:=temp; writeln;
writeln('Полученный массив'); for i:=1 to n do write(a[i],' '); readln;end.
поменять местами первый отрицательный элемент с последним положительным элементом массива
var a:array[1..10]of integer; i,npol,notr,f,t:integer; begin randomize; writeln('ishodnaya matrica'); for i:=1 to 10 do begin a[i]:=random(71)-20;
write(a[i],' '); end; writeln; for i:=1 to 10 do begin if a[i]<0 then notr:=i;
if (a[i]>0) and (f=0)then begin npol:=i; f:=1; end; end; t:=a[notr];
a[notr]:=a[npol]; a[npol]:=t; writeln('novaya matrica'); for i:=1 to 10 do
write(a[i],' '); readln; end.
сумму элементов массива, предшествующих макс элементу
program lab; var a:array [1..30] of integer; i,n,s,max,k:integer;
begin writeln('razmer massiva'); readln(n); for i:=1 to n do
begin writeln('a[',i,']='); readln(a[i]); end; max:=a[1]; for i:=1 to n do
begin if a[i]>max then begin max:=a[i]; k:=i; end;
end; s:=0; for i:=1 to k do s:=s+a[i]; writeln(s); readln; end.
у вещественной квадратной матрицы найти сумму целых частей элементов расположенных выше главной диагонали
program lab; var a:array [1..30,1..30] of real; i,j,n:integer; s: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; for i:=1 to n do
for j:=1 to n do begin if i<j then s:=s+a[i,j]; end; writeln(s); readln;
end.
дана квадратная матрица, построить вектор, и-ый элемент которого равен минимальному элементу и-ой строки
program lab; var a:array [1..30,1..30] of integer; i,j,n:integer;
b:array [1..30] of 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; s:=0; for i:=1 to n do for j:=1 to n do begin
if i+j=n+1 then s:=s+(div a[i,j]); end; writeln(s); readln; end.
измените все отрицательные элементы квадратной матрицы на противоположные по знаку
program lab; var a:array [1..30,1..30] of integer; i,j,n: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; for i:=1 to n do
for j:=1 to n do begin if i=j then if a[i,j]<0 then a[i,j]:=abs(a[i,j]);
end; for i:=1 to n do begin for j:=1 to n do write(a[i,j],' ');
end; readln; end.