uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();
//заполнение массива случайными числами
for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;
//вывод массива
for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
//удаляем строку 6 и меняем 5 и 2 строки местами
for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
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 ;
}
program If3;
var
N : Integer;
begin
Write('Введите целое число: ');
Readln(N);
if N>0 then N:=n+1;
if N<0 then N:=n-3;
if N=0 then N:=17;
writeln(N);
end.
Объяснение:
Решение Pascal