var a:array [byte,byte] of real;
i,j,n,m:byte;
s:real;
d,p:word;
begin
write('Введите количество строк n = ');readln(n);
write('Введите количество строк m = ');readln(m);
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
s:=0;d:=0;p:=0;
for i:=1 to m do begin
for j:=1 to n do
s:=s+a[j,i];
for j:=1 to n do
if a[j,i]<(s/n) then inc(d);
writeln('Количество элементов в столбце ',i,' прямоугольной вещественной матрицы, меньших среднего арифметического d = ',d,' Среднее арифметическое = ',(s/n):0:4);
p:=p+d;
d:=0;s:=0;
end;
writeln('Общее количество элементов меньших элементов в столбцах = ',p);
writeln('Матрица');
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.
#include <math.h>
#include <cstdlib>
#include <iostream>
using namespace std;
int main()
{
float x1,x2,x3,y1,y2,y3;
cout<<"введите кординаты первой точки"<<endl;
cin>>x1;
cin>>y1;
cout<<"введите кординаты второй точки"<<endl;
cin>>x2;
cin>>y2;
cout<<"введите кординаты третьей точки"<<endl;
cin>>x3;
cin>>y3;
float ax=x1-x2,ay=y1-y2,bx=x2-x3,by=y2-y3,cx=x3-x1,cy=y3-y1;
float a=sqrt(ax*ax+ay*ay);
float b=sqrt(bx*bx+by*by);
float c=sqrt(cx*cx+cy*cy);
float S,P,p;
P=a+b+c;
p=P/2;
S=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<"Площадь равна "<<S<<" Периметр равен "<<P<<endl;
system("PAUSE");
return 0 ;
}
const n = 5; var a : array[1..n] of integer; i, max : integer;begin for i := 1 to n do begin a[i] := random(101); write(a[i], ' '); end; max := a[1]; for i := 2 to n do begin if not (i mod 2 = 0) then begin if (max < a[i]) then max := a[i]; end; end; writeln(); writeln(max); end.