Для подсчета суммы элементов массива используют формулу

S:=0; пишем в программе до цикла

S:=S+a[i];

Для подсчета произведения элементов массива используют формулу

Р:=1; пишем в программе до цикла

Р:=Р+a[i];

Для подсчета количества каких-либо элементов массива используют формулу

К:=1; пишем в программе до цикла

К:=К+1;
Задача 1

Введите с клавиатуры числа C и D (C < D) и заполните массив случайными числами на отрезке [C; D].

Пример:

Введите границы диапазона:

7 18

Массив:

13 9 11 17 12

Задача 2

Заполните массив случайными числами в интервале [0,100] и подсчитайте отдельно среднее значение всех элементов, которые <50.

Количество элементов массива в задачах задайте сами.

Показать ответ

Ответ:

sashaloxas

08.05.2023 04:48

While (tnum != 0) //tnum, tden - числитель и знаменатель искомой дроби
   {
       if (tnum < tden)
       {
           temp = tnum;
           tnum = tden;
           tden = temp;
       }
       tnum = tnum - tden;
   }
   gcd = tden; //вычисляем наибольший общий делитель
   numerator = numerator / gcd; //делим числитель и знаменатель на
      НОД, получаем сокращенную дробь
   denominator = denominator / gcd;

0,0(0 оценок)

Ответ:

66vdv1

16.04.2021 06:15

Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.

0,0(0 оценок)

Популярные вопросы: Информатика