или кратко:
beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.Пример работы:
или кратко:
beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.Пример работы:
Тип Integer определяет целочисленные переменные из диапазона -32768..32767
Целочисленный массив M из 5 элементов с индексами от 1 до 5 можно объявить как
M:array[1..5] of integer;