Составьте программу вычисления суммы пяти первых элементов одномерного массива A(N)

@ritavishneva · Регистрация: 05.03.2012

Author24 — интернет-сервис помощи студентам

Составьте программу вычисления суммы пяти первых элементов одномерного массива A(N), заполнив его случайным образом.

Pascal

var a:array [1..10] of real; n,i:integer; s:real;
begin
write ('введите количество элементов'); readln (n);
writeln ('введите элементы массива');
for i:= 1 to n do
begin real (a[i]); write ('') end;
writeln;
s:=0
for i:=1 to n do
s:= s+a[i]
writeln ('сумма первых пяти элементов =',s)
end.

@Puporev · 08.03.2012, 18:21

Pascal

var a:array [1..10] of real;
    n,i:integer;
    s:real;
begin
write ('введите количество элементов');
readln (n);
writeln ('введите элементы массива');
for i:= 1 to n do
readln(a[i]);
writeln('Полученный массив:');
for i:=1 to n do
write (a[i]:0:2,' ');
writeln;
if n<5 then write('В массиве нет 5 элементов')
else
 begin
  s:=0;
  for i:=1 to 5 do
  s:=s+a[i];
  writeln ('сумма первых пяти элементов =',s:0:2);
 end;
end.

	08.03.2012, 18:21