===== PascalABC.NET =====
begin
var n := ReadInteger('Укажите длину массива:');
var a:= ArrRandom(n, -99, 99);
Println('Исходный массив:');
a.Println;
Println('Cумма всех элементов массива:', a.Sum);
Println('Произведение всех элементов массива:',
a.Aggregate(BigInteger.One, (p, q) -> p*q));
Println('Сумма квадратов всех элементов массива:',
a.Sum(p -> p * p));
Println('Сумма шести первых элементов массива:',
a?[:6].Sum);
var (k1, k2) := ReadInteger2('Введите k1 и k2:');
Println('Сумма элементов массива с', k1, 'по', k2, 'равна',
a?[k1-1:k2].Sum);
Println('Среднее арифметическое всех элементов массива:',
a.Average);
var (s1, s2) := ReadInteger2('Введите s1 и s2:');
Println('Среднее арифметическое элементов массива с', s1,
'по', s2, 'равно', a?[s1-1:s2].Average)
end.
#include <iostream>
#include <cstdlib>
#include <math.h>
#include <time.h>
using namespace std;
int main()
{
system("chcp 1251 > null");
srand(time(0));
int n = 50; // Количество покупок
int z = 0; // Цена мороженого
int sum = 0;
cout << "Цены на мороженое на сегодня: \n";
for(int i = 0; i<n; i++){
z = rand()%181+20;
cout << "\n" << z << " рублей/гривен";
sum = sum + z;
}
cout << "\n\nСума за день: " << sum;
}
оценить мои старания :З
N=2x
x=40
N=80бит
Объяснение:
оцени и лайкни