using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
//Задана последовательность из n вещественных чисел. определить сколько среди них меньших k, больших k, равных k.
Console.WriteLine("Введи k");
double k = double.Parse(Console.ReadLine());
Console.WriteLine("Введи n");
double n = double.Parse(Console.ReadLine());
Console.WriteLine("Введи числа");
double a = 0.0, n_min = 0.0, n_rav = 0.0, n_max = 0.0;
for (int i = 0; i < n; i++)
{
a = double.Parse(Console.ReadLine());
if (a < k)
n_min++;
else
{
if (a == k)
n_rav++;
else
n_max++;
}
}
Console.WriteLine("Меньших k - " + n_min + ", равных - " + n_rav + ", больших - " + n_max);
Console.ReadKey();
}
}
}
Поделитесь своими знаниями, ответьте на вопрос:
Через паскаль! тема: «поиск наибольшего или наименьшего элемента массива» написать программу, которая определяет наибольшее по модулю число в массиве из 10 введенных пользователем чисел. не использовать: const, count и другие, которые не по теме!
i,n,m: Integer;
begin
m:=0;
for i:=0 to 9 do
begin
writeln('Введите ',i+1,' число');
readln(n);
a[i]:=abs(n);
end;
for i:=0 to 9 do
begin
if m<a[i] then m:=a[i];
end;
writeln('Самое большое число в массиве :',m);
end.