Контрольна робота з теми «Цикли
1. За даним натуральним значенням змінної п обчислити суму:
2. Знайти всі трьохзначні числа кратні 7, сума цифр яких також кратна 7.
3. Знайти всі цілі числа з проміжку Від 300 до 600 сума дільників яких
кратна 10.​

1.

#include <iostream>

#define N 10

int main()

{

using namespace std;

int count = 0, sum = 0, mult = 1;

int arr[N]{0, 7, 5, 2, -10, -3, 4, 6, 12, -1};

for (const auto i : arr)

{

 if (i < 0)

 {

  count++;

  sum += i;

  mult *= i;

 }

}

cout << "Count = " << count << "\nSum = " << sum

<< "\nMult = " << mult;

return 0;

}

2.

#include <iostream>

#define N 3

int main()

{

using namespace std;

int count = 0, sum = 0, mult = 1;

int arr[N][N]{0, 7, 5, 2, -10, -3, 4, 6, -1};

for (int i = 0; i < N; i++)

{

 for (int j = 0; j < N; j++)

 {

  if (arr[i][j] < 0)

  {

   count++;

   sum += arr[i][j];

   mult *= arr[i][j];

  }

 }

}

cout << "Count = " << count << "\nSum = " << sum

<< "\nMult = " << mult;

return 0;

}

Бейсик Python

CONST N = 20

DIM A (1 TO N) AS INTEGER

DIM I, J, K AS INTEGER

FOR I = 1 TO N

INPUT A(I)

NEXT I

…

END

// допускается также использовать

// две целочисленные переменные

// j и k

a = []

n = 20

for i in range(0, n):

   a.append(int(input()))

…

Паскаль Алгоритмический язык

const

N = 20;

var

a: array [1..N] of

integer;

i, j, k: integer;

begin

for i := 1 to N do

readln(a[i]);

…

end.

алг

нач

цел N = 20

целтаб a[1:N]

цел i, j, k

нц для i от 1 до N

ввод a[i]

кц

…

кон

Си++

#include  

#define N 20

int main() {

int a[N];

int i, j, k;

for (i = 0; i < N; i++)

cin >> a[i];

…

return 0;

Объяснение: