Var a: array [1..20] of integer; i: integer; sum: integer; begin sum: =0; for i: =1 to 20 do begin a[i] : = random(20); write(a[i],' '); sum: = sum+a[i]; end; writeln(); writeln('сумма всех элементов : ',sum); end.
marinamarinyuk39
09.09.2020
// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! function nod(a,b: integer): integer; begin while b> 0 do (a,b): =(b,a mod b); result: =a end; procedure fracadd(n1,d1,n2,d2: integer; var n,d: integer); // сложение дробей n1/d1 + n2/d2 = n/d begin (n,d): =(n1*d2+n2*d1,d1*d2); var k: =nod(n,d); if k< > 1 then (n,d): =(n div k,d div k) end; begin var (a,b): =readinteger2('введите числитель и знаменатель 1й дроби: '); var (c,d): =readinteger2('введите числитель и знаменатель 2й дроби: '); var m,n: integer; fracadd(a,b,c,d,m,n); if n=1 then writeln('сумма=',m) else writeln('сумма=',m,'/',n) end. пример введите числитель и знаменатель 1й дроби: 6 15 введите числитель и знаменатель 2й дроби: 12 300 сумма=11/25 замечание: вводить только натуральные числа!