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

Question

Информатика

Дарена

25 июля, 16:33

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

+5

Ответы (2)

Знаете ответ на вопрос?

Иванка · Answer 1

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.

Степуша · Answer 2

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.