Найти сумму элементов вещественного массива В размерностью 10 элементов, значение элементов вводятся с экрана?

Question

Информатика

Дашуля

7 августа, 10:15

Найти сумму элементов вещественного массива В размерностью 10 элементов, значение элементов вводятся с экрана?

+2

Ответы (2)

Знаете ответ?

Вяча · Answer 1

program m;

uses crt;

var a, b, c, d, e, f, g, h, i, k, s:integer;

begin

S:=0;

writeln (a, b, c, d, e, f, g, h, i, k) ;

readln (a, b, c, d, e, f, g, h, i, k) ;

S:=a+b+c+d+e+f+g+h+i+k;

readln (S) ;

writeln ('s',=s) ;

end.

Анюра · Answer 2

var B: array [1 ... 10] of real;

s:real;

i: integer;

begin

s:=0;

for i:=1 to 10 do begin

readln (b[i]) ;

s:=s+b[i];

end;

writeln (s) ;

end.