profile
Опубликовано 6 лет назад по предмету Информатика от mysay2174

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

  1. Ответ
    Ответ дан sansanic

    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.

        

  2. Ответ
    Ответ дан Jhasu

    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.       

Самые новые вопросы