Using System;
public class Test
{
public static void Main()
{
double a, b, x, p=1;
int k=0;
Console.Write("a = ");
a = double.Parse(Console.ReadLine());
Console.Write("b = ");
b = double.Parse(Console.ReadLine());
for (int i=1; i <= 8; i++) {
x = double.Parse(Console.ReadLine());
if ((x>=a)&&(x<=b)){
k++; p*=x;
}
}
Console.WriteLine("k = {0} p = {1}", k,p);
Console.ReadKey();
}
}
Пример:
a = 3
b = 8
7
9
2
0
6
4
3
5
k = 5 p = 2520
Pascal
read(A) {Ввод А}
А:=А*А;
А:=А*А;
write(A) {Вывод А}
— словарь в компьютере или другом электронном устройстве.
Позволяет быстро найти нужное слово, часто с учётом морфологии и возможностью поиска словосочетаний (примеров употребления), а также с возможностью изменения направления перевода (например, англо-русский или русско-английский).
Внутренне устроен как база данных со словарными статьями.
Электронные словари не стоит путать с компьютерными словарями, предназначенными не для пользователей, а для компьютерных программ, работающих с текстами на естественных языках того кто создал его это морзе
Не забудьте поблагодарить за решение и отметить его как лучшее, если вам понравился ответ
Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>