Помогите решить задачу по програмируванию:Знайти суму 1-го ,3-го,5-го...19-го елементів масиву з 20 дійсних чисел.Будь ласка дуже потрібно.
Ответы
Ответ дал:
0
const n=20;
var a:array[1..n] of real;
i:integer; s:real;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:5:1);
end;
writeln;
s:=0;
for i:=1 to n do
if i mod 2 <> 0 then s:=s+a[i];
writeln('S = ',s:5:2)
end.
Пример (для 10 чисел):
Исходный массив:
1.0 2.2 7.2 8.4 8.6 7.5 3.9 0.3 6.8 5.2
S = 27.63
var a:array[1..n] of real;
i:integer; s:real;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:5:1);
end;
writeln;
s:=0;
for i:=1 to n do
if i mod 2 <> 0 then s:=s+a[i];
writeln('S = ',s:5:2)
end.
Пример (для 10 чисел):
Исходный массив:
1.0 2.2 7.2 8.4 8.6 7.5 3.9 0.3 6.8 5.2
S = 27.63
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
5 лет назад
5 лет назад
7 лет назад
7 лет назад