<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ArrRandom(15,-50,50); x.Println;
var (sn,sp):=(0,0);
foreach var m in x do
if m>0 then sp+=m else sn+=m;
Writeln('Разница между суммой положительных и отрицательных ',sp-sn)
end.
<u>Пример</u>
38 -31 -30 50 -12 -27 -2 24 -20 29 46 24 6 32 -2
Разница между суммой положительных и отрицательных 373
Во вложении видно, что х - именно массив (array of integer)
Что содержит пункт Мои документы в Моем компьютере?
Обычно это файлы самих этих документов, так же программы часто любят сохранять там свои настройки и результаты своей работы
//Удачи с C++ :)
#include <iostream>
inline void sort(int *a, int *b, int *c);
int main()
{
int x, y, z;
std::cin >> x >> y >> z;
void (*ptr)(int *x, int *y, int *z);
ptr = sort;
(*ptr)(&x, &y, &z);
std::cout << x << " " << y << " " << z << std::endl;
system("pause");
return 0;
}
inline void sort(int *a, int *b, int *c)
{
if (*b < *a) std::swap(*a, *b);
if (*c < *a) std::swap(*a, *c);
if (*c < *b) std::swap(*b, *c);
}