using System;
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите координату x точки");
double x = int.Parse(Console.ReadLine());
Console.WriteLine("Введите координату y точки");
double y = int.Parse(Console.ReadLine());
Console.WriteLine("Введите радиус");
double r = int.Parse(Console.ReadLine());
double d = Math.Sqrt(Math.Pow(-x, 2) + Math.Pow(-y, 2));
Console.WriteLine(d);
if (d < r){
Console.WriteLine("Да");}
else if (d == r){
Console.WriteLine("На границе");}
else{
Console.WriteLine("Нет");}
Console.ReadKey();
}
}
program s;
var
a:array [1..50] of integer;
i,P,C: integer;
begin
for i:=1 to 7 do
begin
a[i]=random (30);
end;
for i:=1 to 7 do begin
C:=C+a[i];
Р:=P*a[i];
end;
writeln (C);
writeln (P);
end.
Объяснение:
Вообще программа вычисляла произведение всех элементов массива. Теперь вычисляет и сумму всех элементов массива.