Проделайте несколько операций с массивом Array. Найдите сумму всех элементов массива (S)

Відповідь:

#include <iostream>

#include <cstdlib>

#include <time.h>

using namespace std;

void randArray(int *Array, int size){

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

 Array[i] = rand() % 10 + 1;

}

}

void printArray(int *Array, int size){

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

 cout << Array[i] << " ";

}

}

int sumelements(int *Array, int size){

int S = 0;

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

 S += Array[i];

}

return S;

}

int main(){

srand(time(NULL));

setlocale(LC_ALL , "Rus");

int size;

cout << "Введите кол-во елементов массива: ";

cin >> size;

if(size < 0){

 cout << "Количество не может быть меньше 0" << endl;

}

int *Array = new int[size];

randArray(Array,size);

printArray(Array,size);

cout << "\nСумма всех елементов массива = " << sumelements(Array,size) << endl;

delete [] Array;

return 0;

}

Пояснення:

//pascal abc.net v3.0 сборка 1111 const   n=30;   type   tys=array[1..n] of string; var   ars: tys;   i,j: integer;   s: string;   procedure sorts(var ars: tys; n1: integer); var   i,j: integer;   c: string; begin   for i: =1 to n1-1 do   for j: =i to n1 do     if ars[i]> ars[j] then     begin       c: =ars[i];       ars[i]: =ars[j];       ars[j]: =c;     end; end;     begin   readln(s);   j: =1;   while pos(' ',s)< > 0 do   begin     for i: =1 to pos(' ',s) do     ars[j]: =ars[j]+s[i];     delete(s,1,pos(' ',s));     inc(j);   end;   ars[j]: =s;   sorts(ars,j+1);   writeln('result=');   for i: =1 to n do  writeln(ars[i]); end. пример ввода: панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм паскаль тетрадь разум пример вывода: панамка  параллелепипед  паскаль  паста  пена  пенал  пинать  подражатель  полиморфизм    разумтетрадь  явный