Регистрация
pud0303
20.08.2022 08:44
Информатика
Есть ответ 👍

ответьте на во Задача 2. Написать программу, которая вводит последовательность чисел от 1 до n (n задавать в программе), выводить

1) сумму этих чисел,

2) произведение,

3) количество чисел кратных 2 и 3,

4) среднее арифметическое ряда, округлив до десятых.

Задача 3. Вводить в массив 10 случайных чисел (числа в промежутке от -50 до 50). Выводить массив. Находить максимальный элемент массива и считать сумму чисел кратных 2 и 3.

168
449
Посмотреть ответы 1

Ответы на вопрос:

ЕлИзАвЕтКа0915
ЕлИзАвЕтКа0915
4,6(8 оценок)

Program abra;

Var

X : Array [1..20, 1..20] Of

real;

N : Integer;

P : Real;

i, j: Integer;

begin

WriteLn ('Вычисление произведения ');

Write ('Введите размерность:  N = ');

ReadLn (N);

WriteLn ('Введите элементы массива:');

For i := 1 To N Do

For j := 1 To N Do

Begin

Write ('X[', i, ',', j, '] = ');

ReadLn (X [i, j] );

End;

P := 1;

For i := 1 To N Do

For j := 1 To N Do

P := P * X [i, j];

if (X [i,j])=0 then writeln('присутствуют нулевые элементы')  else

WriteLn ('Произведение: P = ',p: 6: 1);

readln;

 end.

Объяснение:

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