найти сумму элементов вещественного массива, находящихся ниже главной диагонали
program yey;
var
a:array[1..100,1..100] of real;
j,i,m,n:integer;
s:real;
begin
writeln('введите размерность массива');
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
{end for}
{end for}
for i:=2 to m do
for j:=1 to i-1 do
s:=s+a[i,j];
{end for}
{end for}
writeln(s:02:2);
end.
Найти количество положительных элементов в массиве на чётных местах.
var a:array [1..100] of integer;
i,kol,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
writeln('Введите элементы массива:');
for i:=1 to n do
readln(a[i]);
kol:=0;
for i:=1 to n do
if (a[i] > 0) and (not odd(i)) then kol:=kol+1;
writeln('Кол-во положительных элементов в массиве на чётных местах: ',kol);
end.
Найти наибольший элемент матрицы nxn:
program mxel;
var
a:array[1..5,1..5] of integer;
i,j,max:integer;
begin
max:=a[1,1];
for i:=1 to 5 do
for j:=1 to 5 do
readln(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then max:=a[i,j];
writeln(max);
end.
Посчитать количество минимальных элементов массива(одномерного):
program chislo_min_elem;
uses crt;
var
a : array[1..10] of integer;
i,n,min,q : integer;
begin
clrscr;
writeln('Размер: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите элемент: ');
readln(a[i]);
end;
{endfor}
q:=0;
min:=a[1];
for i:=1 to n do
if a[i]<min then
min:=a[i];
{endif}
{endfor}
for i:=1 to n do
if a[i]=min then
q:=q+1;
{endif}
{endfot}
writeln('Число минимальных элементов: ',q);
writeln('Для выхода нажмите ENTER');
readln
end.
Поменять местами макс. и мин. эл-ты массива:
program max_;
uses crt;
var a:array [1..10] of integer;
max,min,ik,im,i,x:integer;
begin
Clrscr;
for i:=1 to 10 do
readln(a[i]);
begin
for i:=1 to 10 do
if a[i]>max then
begin
max:=a[i];
ik:=i;
end;
for i:=1 to 10 do
if a[i]<min then
begin
min:=a[i];
im:=i;
end;
x:=a[im];
a[im]:=a[ik];
a[ik]:=x;
end;
write('min=',a[im],' max=',a[ik]);
readln
end.
program raznost;
uses crt;
var
a:array[1..5] of integer;
min,max,i,razn:integer;
begin
clrscr;
max:=a[1];
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
if a[i]>max then max:=a[i];
min:=max;
for i:=1 to 5 do
if a[i]<min then min:=a[i];
razn:=max-min;
writeln('Разность Макc и Мин: ',razn);
end.
Найти сумму эл-ов главной диагонали:
program sumelgl;
uses crt;
var p:array[1..10,1..10] of real;
i,n,j:integer;
s1:real;
begin
clrscr;
s1:=0;
s2:=0;
writeln('vvedite razmer matrici');
readln(n);
writeln('vvedite elementi matrici');
for i:=1 to n do
for j:=1 to n do
readln(p[i,j]);
for i:=1 to n do
for j:=1 to n do
begin
if (i=j) then s1:=s1+p[i,j];
end;
writeln('summa elementov glavnoi diagonali ',s1:2:2);
end.
Найти max элемент в массиве и посчитать сумму всех элементов по порядку до max, включая его:
program sum;
uses crt;
var
a:array[1..5] of integer;
i,sum,max,pos:integer;
begin
clrscr;
max:=a[1];
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
if a[i]>max then begin
max:=a[i];
pos:=i;
end;
for i:=1 to pos do
sum:=sum+a[i];
writeln(sum);
end.
------------------
Найти количество элементов в массиве, абсосютная величина которых больше 7:
program bolshsem;
uses crt;
var
a:array[1..5] of integer;
i,kol:integer;
begin
clrscr;
kol:=0;
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
if (a[i]>7) or (a[i]<-7) then kol:=kol+1;
writeln(kol);
end.
абсосютная величина - это модуль. соответственно нужно подсчитать числа которые больше 7 и меньше -7.
------------------
Найти разность между наибольшим элементом массива и наименьшим эл. массива. (одномерный):
program raznost;
uses crt;
var
a:array[1..5] of integer;
min,max,i,razn:integer;
begin
clrscr;
max:=a[1];
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
if a[i]>max then max:=a[i];
for i:=1 to 5 do
if a[i]<min then min:=a[i];
razn:=max-min;
writeln('Разность Макc и Мин: ',razn);
end.
------------------
найти наибольшееее чётное и количество нечётных элементов массива
Program gal9;
var
a:array[1..5] of integer;
max,i,kol:integer;
begin
max:=a[1];
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
if (a[i] mod 2=0) and (a[i]>max) then
max:=a[i] else kol:=kol+1;
write('макc. четное: ',max,',',' кол. нечетных: ',kol);
end.
------------------
Поменять все элементы матрицы MxN на противоположные по знаку:
program zamena;
var
a:array[1..3,1..3] of integer;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
readln(a[i,j]);
for i:=1 to 3 do
for j:=1 to 3 do
if a[i,j]<0 then
a[i,j]:=0-a[i,j] else
a[i,j]:=0-a[i,j];
for i:=1 to 3 do
for j:=1 to 3 do
write(a[i,j]:4);
end.
------------------
Подсчитать количество наибольших элементов массива:
max:=1;
kol:=0;
for i:=1 to N do
begin
Write(i,'элемент=');
read(A[i]);
if A[i]>A[max] then
max:=i;
kol:=kol+1
end;
writeln;
for i:=1 to N do
write(A[i]:4);
writeln;
writeln('кол макс. эл ',kol);
------------------
Поменять местами макс. и мин. эл-ты массива:
for i:=1 to 10 do
begin
if a[i]>max then
begin
max:=a[i];
ik:=i;
end;
if a[i]<min then
begin
min:=a[i];
im:=i;
end;
x:=a[im];
a[im]:=a[ik];
a[ik]:=x;
end;
Найти сумму эл-ов главной диагонали:
program sumelgl;
uses crt;
var p:array[1..10,1..10] of real;
i,n,j:integer;
s1:real;
begin
clrscr;
s1:=0;
s2:=0;
writeln('vvedite razmer matrici');
readln(n);
writeln('vvedite elementi matrici');
for i:=1 to n do
for j:=1 to n do
readln(p[i,j]);
for i:=1 to n do
for j:=1 to n do
begin
if (i=j) then s1:=s1+p[i,j];
end;
writeln('summa elementov glavnoi diagonali ',s1:2:2);
end.
Найти max элемент в массиве и посчитать сумму всех элементов по порядку до max, включая его:
program sum;
uses crt;
var
a:array[1..5] of integer;
i,sum,max,pos:integer;
begin
clrscr;
max:=a[1];
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
if a[i]>max then begin
max:=a[i];
pos:=i;
end;
for i:=1 to pos do
sum:=sum+a[i];
writeln(sum);
end.
------------------
Найти количество элементов в массиве, абсосютная величина которых больше 7:
program bolshsem;
uses crt;
var
a:array[1..5] of integer;
i,kol:integer;
begin
clrscr;
kol:=0;
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
if (a[i]>7) or (a[i]<-7) then kol:=kol+1;
writeln(kol);
end.
абсосютная величина - это модуль. соответственно нужно подсчитать числа которые больше 7 и меньше -7.
------------------
Найти разность между наибольшим элементом массива и наименьшим эл. массива. (одномерный):
program raznost;
uses crt;
var
a:array[1..5] of integer;
min,max,i,razn:integer;
begin
clrscr;
max:=a[1];
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
if a[i]>max then max:=a[i];
min:=max;
for i:=1 to 5 do
if a[i]<min then min:=a[i];
razn:=max-min;
writeln('Разность Макc и Мин: ',razn);
end.
------------------
найти наибольшееее чётное и количество нечётных элементов массива
Program gal9;
var
a:array[1..5] of integer;
max,i,kol:integer;
begin
max:=a[1];
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
if (a[i] mod 2=0) and (a[i]>max) then
max:=a[i] else kol:=kol+1;
write('макc. четное: ',max,',',' кол. нечетных: ',kol);
end.
------------------
Поменять все элементы матрицы MxN на противоположные по знаку:
program zamena;
var
a:array[1..3,1..3] of integer;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
readln(a[i,j]);
for i:=1 to 3 do
for j:=1 to 3 do
if a[i,j]<0 then
a[i,j]:=0-a[i,j] else
a[i,j]:=0-a[i,j];
for i:=1 to 3 do
for j:=1 to 3 do
write(a[i,j]:4);
end.
------------------
Подсчитать количество наибольших элементов массива:
max:=1;
kol:=0;
for i:=1 to N do
begin
Write(i,'элемент=');
read(A[i]);
if A[i]>A[max] then
max:=i;
kol:=kol+1
end;
writeln;
for i:=1 to N do
write(A[i]:4);
writeln;
writeln('кол макс. эл ',kol);
------------------
Поменять местами макс. и мин. эл-ты массива:
program max_;
uses crt;
Var a:array [1..10] of integer;
max,min,ik,im,i,x:integer;
begin
Clrscr;
for i:=1 to 10 do
readln(a[i]);
begin
for i:=1 to 10 do
if a[i]>max then
begin
max:=a[i];
ik:=i;
end;
for i:=1 to 10 do
if a[i]<min then
begin
min:=a[i];
im:=i;
end;
x:=a[im];
a[im]:=a[ik];
a[ik]:=x;
end;
write('min=',a[im],' max=',a[ik]);
readln
end.
------------------
Найти наибольший элемент матрицы nxn:
program mxel;
var
a:array[1..5,1..5] of integer;
I,j,max:integer;
begin
max:=a[1,1];
for i:=1 to 5 do
for j:=1 to 5 do
readln(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then max:=a[i,j];
writeln(max);
end.
---------------------
Посчитать количество минимальных элементов массива(одномерного):
program chislo_min_elem;
uses crt;
var
a : array[1..10] of integer;
I,n,min,q : integer;
begin
clrscr;
writeln('Размер: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите элемент: ');
readln(a[i]);
end;
{endfor}
q:=0;
min:=a[1];
for i:=1 to n do
if a[i]<min then
min:=a[i];
{endif}
{endfor}
for i:=1 to n do
if a[i]=min then
q:=q+1;
{endif}
{endfot}
writeln('Число минимальных элементов: ',q);
writeln('Для выхода нажмите ENTER');
readln
end.
--------------------
найти сумму элементов вещественного массива, находящихся ниже главной диагонали
program yey;
var
a:array[1..100,1..100] of real;
j,i,n:integer;
s:real;
begin
writeln('введите размерность массива');
readln(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
{end for}
{end for}
for i:=2 to n do
for j:=1 to i-1 do
s:=s+a[i,j];
{end for}
{end for}
writeln(s:02:2);
end.-
---------------------------
Найти количество положительных элементов в массиве на чётных местах.
Var a:array [1..100] of integer;
I,kol,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
writeln('Введите элементы массива:');
for i:=1 to n do
readln(a[i]);
kol:=0;
for i:=1 to n do
if (a[i] > 0) and (not odd(i)) then kol:=kol+1;
writeln('Кол-во положительных элементов в массиве на чётных местах: ',kol);
end.
-----------------------
задача: найти количество элементов массива меньших среднего арифметического всех его элементов.
Решение :
program z_3;
Var a:array [1..100] of integer;
n,s,kol,i:integer;
sr:real;
begin
writeln('vvedi razmernost massiva');
readln(n);
for i:=1 to n do
read(a[i]);
{end for}
s:=0;
for i:=1 to n do
s:=s+a[i];
{end for}
sr:=s/n;
kol:=0;
for i:= 1 to n do
if a[i]<sr then
kol:=kol+1;
{end if}
{end for}
writeln(kol);
end.
Посчитать сумму отрицательных эллементов массива, следующих за max элементом
Program qwerty;
uses crt;
var a:array[1..100] of integer;
max,sum,i,n,k:integer;
begin
writeln ('Введите количество элементов массива:');
readln(n);
writeln('Введите элементы массива:');
for i:=1 to n do
readln(a[i]);
max:=a[1];
for i:=2 to n do
if a[i]>max then
begin
max:=a[i];
k:=i;
end;
sum:=0;
for i:=k to n do
if a[i]<0 then sum:=sum+a[i];
writeln ('Сумма отрицательных элементов массива, следующих за максимильным:', sum);
end.