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.
var b: array [1..10] of real;
s: real;
i: integer;
for i: =1 to 10 do begin
readln(b[i]);
s: =s+b[i];
end;
writeln(s);
Поделитесь своими знаниями, ответьте на вопрос:
Найти сумму элементов вещественного массива в размерностью 10элементов, значение элементов вводятся с экрана?
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.