Помогите пожалуйста!На языке ПаскальВ одномерном массиве, состоящем из п вещественных элементов, вычислить:1. Количество элементов массива, равных нулю.2. Сумму элементов массива, расположенных после минимального элем...
Помогите пожалуйста!На языке Паскаль
В одномерном массиве, состоящем из п вещественных элементов, вычислить:
1. Количество элементов массива, равных нулю.
2. Сумму элементов массива, расположенных после минимального элемента. Упорядочить элементы массива по возрастанию модулей.
Гость
Ответ(ы) на вопрос:
Гостьconst n=10;
var a:array [1..n] of real;
i,k:integer;
b,min,s:real;
begin
for i:=1 to n do begin
a[i]:=21*random-10;
if a[i]=0 then k:=k+1;
write (a[i]:6:2);
end;
writeln;
writeln ('нулевых элементов ',k);
min:=a[1];
for i:=1 to n do
if a[i]