Program abc;
uses crt;
var a,b,c: integer;
begin
write('Введи значение a = ');
readln(a);
write('Введи значение b = ');
readln(b);
write('Введи значение c = ');
readln(c);
writeln(a);
writeln(b);
writeln(c);
end.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),-30,50);
a.Println(', ');
Writeln('max-min=',a.Max-a.Min)
end.
<u><em>Тестовое решение:</em></u>
n= 10
-19, 50, 8, -12, -26, 50, -28, -9, -7, 42
max-min=78
#include <iostream>
#include <cstdlib>
#include <math.h>
#include <time.h>
using namespace std;
int main()
{
system("chcp 1251 > null");
srand(time(0));
int n = 30;
int z = 0;
double sum = 0;
double sr = 0;
cout << "Температура: \n";
for(int i = 0; i<n; i++){
z = rand()%11+5;
cout << "\n" << z;
sum = sum + z;
}
sr = sum/n;
cout << "\n\nСредняя температура за сентябрь: " << sr;
}
Оценивать так же можно кнопочкой "Лучший ответ" :З
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
type
Point=record
x,y:real
end;
function GetPoint(c:char):Point;
begin
Writeln('Введите координаты точки ',c,':');
Read(Result.x,Result.y)
end;
function Line(A,B:Point):real;
begin
Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
function SqTriangle(pA,pB,pC:Point):real;
begin
var a:=Line(pB,pC);
var b:=Line(pA,pC);
var c:=Line(pA,pB);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
var p:=(a+b+c)/2;
Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end
else Result:=0
end;
begin
var A:=GetPoint('A');
var B:=GetPoint('B');
var C:=GetPoint('C');
Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.
<u><em>Тестовое решение:</em></u>
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975