Из элементов массива a, состоящего из 10 элементов, заполненный случайным образом, сформировать массив b по следующему правилу: положительные элементы перенести в массив b без изменений, а отрицательные заменить их модулем. распечатать оба массива.

Var
a,b:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do a[i]:=random(1001)-1000;
for i:=1 to 10 do b[i]:=abs(a[i]);
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do write(b[i],' ');
end.

// исходный массив
int mas[10] = {21,13,52,43,9,18,27,34,28,56};
int i = 0;  // счетчик
int index_min; // переменна для хранения индекса минимального элемента в массиве
int min = mas[0]; // сначала принимаем 1ый элемент как минимальный
while (i < 10) {       // проходим по всему массиву
if (mas[i] < min) {   // если текущий элемент меньше минимального
min = mas[i];    // делаем его минимальным
index_min = i;   // запоминаем его индекс
} i++;               // увеличиваем счетчик }
printf("Min = %d ", mas[index_min]);    // выводим минимальный элемент
int Sum = 0;       // переменная для подсчета суммы
i = index_min+1;   // индес следующего элемента - правее за минимальным
while (i < 10) {   // пробегаем по массиву от следующего за минимальным до конца
Sum += mas[i]; // суммируем
i++;           // увеличиваем счетчик
}
printf("Sum = %d ", Sum);  // выводим результат суммы

Его можно рассматривать как систему, состоящую из подсистем «аппаратное обеспечение», «программное обеспечение», «информационные ресурсы»Подсистема аппаратного обеспечения выступает в качестве надсистемы для устройств ввода, обработки, хранения и вывода информации.

Операционная система — подсистема программного обеспечения и надсистема, в состав которой входят системные и служебные программы.

Система информационных ресурсов включает в себя системы текстовых и графических файлов, звуковых файлов, файлов с видеоинформацией и т. д.