Помогите пожалуйста!На языке Паскаль
В одномерном массиве, состоящем из п вещественных элементов, вычислить:
1. Количество элементов массива, равных нулю.
2. Сумму элементов массива, расположенных после минимального элемента. Упорядочить элементы массива по возрастанию модулей.
More Questions From This User See All
Answers & Comments
var i,n,k,z,sum:real;
a:array[1..n];
begin
for i=1 to n do
if a[i]=0 then k=k+1
end;
for i=1 to n do
if a[i]<z then z:=i;
end;
for i := z to n doread(a[i]);
sum := 0;
for i := 1 to n dosum := sum + a[i];
end.