Const
n=5; // количество чисед
var
i,k:integer;
s:longint;
m,d,dc:real;
a:array[1..n] of longint;
fin,fout:Text; // файловые переменные для ввода/вывода
begin
Assign(fin,'input.txt'); Reset(fin); // файл готов к чтению
s:=0;
for i:=1 to n do
if not Eof(fin) then begin
Read(fin,a[i]);
s:=s+a[i]
end
else begin
Writeln('Во входном файле недостаточно данных');
Close(fin);
Exit
end;
Close(fin);
m:=s/n;
d:=Abs(a[1]-m); k:=1;
for i:=2 to n do begin
dc:=Abs(a[i]-m);
if dc<d then begin
k:=i; d:=dc
end
end;
Assign(fout,'output.txt'); Rewrite(fout); // файл готов к записи
Writeln(fout,a[k]);
Close(fout)
end.
По принципу, программы бывает очень много, но я выделю самые оптимальные и функциональные: command local 34bet, kool 53.dlt. Они вычисляют произвольно все принципов решений параллелепипеда, угол расположения, моделирования, строительства, и многое другое (+ подсчёты)
Первое устройство, которое работало по программе-счёты.
Pascal:
var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.
