Оценка за семестр.вычислить сумму 10 целых чисел. для обозначения чисел введем имя массива х, элементы которого имеют индекс i. сумму обозначим именем sum. sum = x[1]+x[2]+ … + x[10]

на паскалеprogram armashka;

var x: array[1..10] of integer;

sum,i: integer;

begin

sum: =0;

for i: =1 to 10 doread(a[i]);

for i: =1 to 10 do

sum: =sum+a[i] ; writeln(sum); end.вроде бы ошибок нет. если что-то не так или нужен другой язык программирования пиши в лс 

// pascalabc.net 3.1, сборка 1179 от 29.02.2016 begin   var a: =seqrandom(5,10,99).sorted.toarray; writeln('a=',a);   var b: =seqrandom(5,10,99).sorted.toarray; writeln('b=',b);   var c: =new integer[10];   var i: =0; var j: =0; var k: =0;   while (i< 5) and (j< 5) do begin       if a[i]< b[j] then begin c[k]: =a[i]; inc(i) end       else begin c[k]: =b[j]; inc(j) end;       inc(k)   end;   if i=5 then       for var m: =j to 4 do begin c[k]: =b[m]; inc(k) end   else       for var m: =i to 4 do begin c[k]: =a[m]; inc(k) end;   writeln('c=',c) end. тестовое решение: a=[14,53,78,86,89] b=[35,57,63,85,94] c=[14,35,53,57,63,78,85,86,89,94]

Var       amoebas, t: integer; begin       amoebas : = 1;       t : = 0;             repeat               t : = t + 3;               amoebas : = amoebas * 2;                       writeln(amoebas, ' амеб через ', t, ' часа');           until t > = 24; end.