Синформатикой ,10 класс. : напишите программу вычисления суммы всех элементов массива. проверьте работу программы на заданном массиве a={7,25,4.5,0,17,61,-10,0,1,-4,22}

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.

на паскале:

var

n,s,p: integer;

begin

read(n);

p: =n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n> 0 do

begin

n: =n div 10;

s: =s+1;

end;

writeln ('количество цифр в числе', s);

end.

program sdss;

uses crt;

var a,b,i: integer;

      c: real;  

begin

clrscr;

readln(a,b);

for i: =a to b do

  c: c+i;

c: =c/(b-a+1);

writeln(c: 2: 4);

readkey;

end.