за небольшую задачу на PASCAL Найти произведение всех элементов массива С (N,M) вещественных чисел, меньших заданного числа K. Заполнение массива осуществить случайными числами от 50 до 100.

Программа:

Pascal:

const N = 5; const M = 2;

var

C: array[1..M, 1..N] of real;

i, j: integer;

K, proiz: real;

begin

writeln('K = '); readln(K);

proiz := 1;

for i := 1 to M do

  for j := 1 to N do begin

    C[i,j] := random * (100 - 50) + 50;

    if C[i, j] < K then proiz := proiz * C[i,j];

  end;

writeln(C); writeln(proiz);

end.

#include < iostream> #include < algorithm> #include < numeric> #include < iterator> #include < functional> #include < cstdlib> using namespace std; const int size = 20; int arr[size] = { -1, 1, 5, 2, -4, 0, 7, -2, 5, -9, 3,6,-9,0,-4,4,6,2,13,5 }; void massiv(){cout < < "new array: " < < std: : endl; copy(arr, arr + size, std: : ostream_iterator< int> (std: : cout, " ")); cout < < std: : endl;

int memory= arr[0]; for (int k=0; k< size-1; k++)arr [k]=arr[k+1]; arr[size-1]=memory; cout < < "new array: " < < std: : endl; copy(arr, arr + size, std: : ostream_iterator< int> (std: : cout, " ")); cout < < std: : endl; }

int main(){massiv(); system("pause"); return 0; }

второе не понял