Var N: integer; sum: real; begin write('Введите количество чисел: '); readln(N); write('Введите числа: '); sum := 0; for var i := 1 to N do begin var x := ReadReal; sum += x; end; writeln('Сумма введенных чисел = ',sum); end.
/////////////////////////////////////////
13. C (т.к. последнее было зануление д)
14. B (real)
15. C (24)
16.A (0)
17.D(15)
18.B (но вот что интересно, дак то что и под D подойдёт но не во всех случаях)
19.А
20.D (8) 20 mod 7(пол 6) + 5 div 4 * 2(пол 2) = 8
21. С (12)
22. B(43)
23.D(readln)
24.A(write)
25.C(end)
Размер кластера диска (его сектор) не равен 1024 числу, из-за этого получается такие неточности. Диск состоит из множества секторов.