program pr1;
var sum:real;
i:byte;
a:array[1..5] of real;
begin
//vvod massiva
for i:=1 to 5 do
begin
writeln('Vvedite ',i,' element massiva');
readln(a[i]);
end;
sum:=0;
//zicl nahojdeniya summi elementov massiva
For i:=1 to 5 do
sum:=sum+a[i];
//proverka esli summa ravna nolu
if sum=0 then begin writeln('Delenie na nol');exit;end;
For i:=1 to 5 do
begin
//delenie kajdogo elementa massiva na summu elementov massiva
a[i]:=a[i]/sum;
//vivod massiva
write(a[i]:4:3,',');
end;
end.
Следующий вариант
//vvod massiva
sum:=0;
for i:=1 to 5 do
begin
writeln('Vvedite ',i,' element massiva');
readln(a[i]);
sum:=sum+a[i];
end;
Похожие записи/страницы:
- Поменять местами наибольший и наименьший элементы одномерного массива - Pascal(Паскаль)
- В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) произведение отрицательных элементов…
- В одномерном массиве, состоящем из N вещественных элементов, вычислить: Сумму элементов массива, расположенных…
- C клавиатуры ввести натуральные числа k>1,m>1,n>1 и вещественные компоненты трёх векторов…
- Даны два массива вещественных чисел. Один массив упорядочен, другой – не упорядочен. Составить из двух массивов…
- Даны два одномерных массива из целых чисел. Найти элементы, которые есть в первом массиве, и которых нет во…
- В одномерном массиве, состоящем из N целочисленных элементов, вычислить: 1)Произведение элементов массива с…
- Дан массив. Найти удвоенную сумму элементов, являющихся одновременно положительными и кратными 5 - Pascal(Паскаль)