Даны координаты n точек на плоскости: X1,Y1,...Xn, Yn(n=20). Найти номера двух точек, расстояние между которыми наибольшее (считать, что такая пара точек единственная). Координаты точек вводятся из файла. Вывести координаты точек в виде таблицы, номера двух точек, расстояние между которыми наибольшее и само расстояние между ними. Вывод предусмотреть: 1) в файл; 2) на экран.
Написать код программы(delphi)
/** libraries */
#include <iostream>
#include <cmath>
#include <vector>
#include <map>
#include <set>
#include <queue>
#include <stack>
#include <algorithm>
/** libraries */
using namespace std;
/** defines */
#define ll long long
#define ld long double
#define yes cout << "YES" << "\n"
#define no cout << "NO" << "\n"
/** defines */
int a[20];
void solve(){
ld sum = 0;
for(auto i: a)
sum += i;
ld av = sum / 20;
int res = 0;
for(auto i: a)
if(i < av)
res++;
cout << res;
}
signed main() {
ios_base::sync_with_stdio(false);
cin.tie(nullptr);
cout.tie(nullptr);
for(int i = 0; i < 20; i++)
cin >> a[i];
solve();
}
var
a, s: real; //a - вводимое с клавиатуры число, s - сумма чисел
begin
a:= 1; //Присваиваем начальное значение, чтобы цикл выполнился
s:= 0;
while a <> 0 do
begin
writeln('Введите положительное число');
readln(a);
if a < 0 then
begin
writeln('Введено не положительное число. Повторите ввод заново');
continue; {Если а - не положительное число, вводим число заново}
end;
s:= s + a;
end;
writeln('Сумма: ', s); //Выводим сумму
end.