var a: array[1..nmax] of integer; i, n, j: integer; sum, product, harmonic: real; k: integer;
begin {ввод массива} n := nmax; writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(random_max - random_min) + random_min; write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет элементов} k := 0; for i := 1 to n do if a[i] mod 2 = 0 then k := k + 1; writeln('quantity = ', k);
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do sum := sum + a[i]; writeln('sum = ', sum); end.
Если нужен ввод через запятую: using System; namespace ConsoleApp14{ class Program { static void Main(string[] args) { Console.WriteLine("Введите длины сторон треугольника через запятую"); string[] OutS = Console.ReadLine().Split(','); double a = Convert.ToInt32(OutS[0]); double b = Convert.ToInt32(OutS[1]); double c = Convert.ToInt32(OutS[1]); double p = ((a + b + c) / 2); Console.WriteLine("Радиус описанной окружности: {0}", (a*b*c)/(4*Math.Sqrt(p*((p-a)*(p-b)*(p-c; Console.WriteLine("Радиус вписанной окружности: {0}", Math.Sqrt(((p-a)*(p-b)*(p-c))/p)); Console.ReadKey(); //пока не нажать любую кнопку, программа не закроется } }} Если не хочешь использовать метод Split: using System; namespace ConsoleApp14{ class Program { static void Main(string[] args) { Console.WriteLine("Введите длину стороны a"); double a = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите длину стороны b"); double b = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите длину стороны c"); double c = Convert.ToInt32(Console.ReadLine()); double p = ((a + b + c) / 2); Console.WriteLine("Радиус описанной окружности: {0}", (a*b*c)/(4*Math.Sqrt(p*((p-a)*(p-b)*(p-c; Console.WriteLine("Радиус вписанной окружности: {0}", Math.Sqrt(((p-a)*(p-b)*(p-c))/p)); Console.ReadKey(); //пока не нажать любую кнопку, программа не закроется } }}
Клавиатура - это устройство, которое используется для ввода данных (букв, цифр и других символов) в компьютер.