Завдання: Скласти програму в середовищі Delphi або Lazarus, використовуючи оператор While..do, розрахувати та вивести на екран (консоль) таблицю значень аргументу та функції Y = F ( X ), якщо Х приймає значення від Хпоч до Хкін з кроком D. Значення змінних Хпоч , Хкін , крок D –задати як константи. Змінні a і b ввести з клавіатури (в консолі Результат роботи програми--- це таблиця , 1-й стовбець якої значення Х, а другий-- відповідні значення У. Скласти звіт. Приклад: Розрахувати та вивести на екран (консоль) таблицю значень аргументу та функції Y = F ( х ). y = , якщо Хпоч =0.2, Хкін = 4.2, D =0, 9, a-будь-яке число Задача: y=1+sin^2:3(корень)b^3+x^3 якщо Хпоч =1.28, Хкін = 3.28, D =0, 4, b -будь-яке число.

Бiблiотека random присутня пiсля установки, тому хай вас не лякає її присутнiсть

from random import randint

lst = []

# список з 10-тьма випадковими числами вiд -10 до 10

for i in range(10):

   lst.append(randint(-10, 10))

# тут я застосував технологiю list comprehension

more_then_zero = [a for a in lst if a > 0]

less_then_zero = [a for a in lst if a < 0]

# сумма/кiлькiсть/середнє арифметичне чисел бiльших за 0

print(sum(more_then_zero))

print(len(more_then_zero))

print(sum(more_then_zero) / len(more_then_zero))

print("\n") # банальний вiдступ

# сумма/кiлькiсть/середнє арифметичне чисел менших за 0

print(sum(less_then_zero))

print(len(less_then_zero))

print(sum(less_then_zero) / len(less_then_zero))

#include <iostream>

#include <vector>

using namespace std;

int main() {int m, n, cx, cy;

 cin >> m >> n;

 vector<int>a;

 a.reserve(m*n);

 for (int i = 0;i < m;++i) {

   for(int j = 0;j < n;++j) {

     int v;

     cin >> v;

     a.push_back(v);

   }

 }

 int x;

 int value = 0;

 cin >> x;

 for (int k = 0;k < x;++k) {

   cin >> cx >> cy;

   if((a[cy-1 + (cx-1)*cy]) != -100) {

     value += a[cy-1 + (cx-1)*cy];

     a[cy-1 + (cx-1)*cy] = -100;

   }

 }cout << value;

 

}

Объяснение: