Предмет: Информатика,
автор: 1q2q3q
Помогите пожалуйста!На языке Паскаль
В одномерном массиве, состоящем из п вещественных элементов, вычислить:
1. Количество элементов массива, равных нулю.
2. Сумму элементов массива, расположенных после минимального элемента. Упорядочить элементы массива по возрастанию модулей.
Ответы
Автор ответа:
0
примерный смысл должен быть понятен. Писал с телефона, возможны опечатки
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 do read(a[i]);
sum := 0;
for i := 1 to n do sum := sum + a[i];
end.
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 do read(a[i]);
sum := 0;
for i := 1 to n do sum := sum + a[i];
end.
Интересные вопросы
Предмет: Литература,
автор: koscovakristina08
Предмет: Английский язык,
автор: vadimb32
Предмет: Математика,
автор: HiyokoSempai
Предмет: Алгебра,
автор: LeraLerarr
Предмет: Математика,
автор: azharahm