Медицинская процедура — порядок действий, направленных на достижение результата в плане оказания помощи людям, у которых проблемы со здоровьем.
Медицинская процедура с целью определения, измерения илидиагностики состояния пациента называется диагностический тест. Другие общие виды процедур — это терапевтические (например, заживление или обработка раны, лечение или восстановление функции или структуры) и большая группа хирургических процедур.
Объем памяти = 1280*1024*32 бит = 1280*1024*32/8 байт =
1280*1024*4/1024 Кбайт = 5120 Кайт = 5120/1024 Мбайт = 5 Мбайт
===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.