Uses crt;var a,b,c,d,g,i,k,l,z,x,m,n,q:real;beginwriteln('введите число тон');readln(a);writeln('введите число ');readln(b);writeln('введите число ');readln(c);writeln('введите число ');readln(d);writeln('введите число ');readln(g);writeln('введите число ');readln(i);writeln('введите число ');readln(k);writeln('введите число ');readln(l);writeln('введите число ');readln(n);writeln('введите число ');readln(m);writeln('введите число ');readln(z);writeln('введите число ');readln(x);q:=a+b+c+d+g+i+k+l+z+x+m+n;writeln('Обща маса',q:10:2);end.
Const n=20; var a:array [1..n] of integer; k,i:integer; begin writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(90)+10; write(a[i],' '); end; writeln; k:=0; for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln('В массиве ',k,' четных чисел'); writeln('Элементы с нечетными номерами:'); for i:=1 to n do if i mod 2 <> 0 then write(a[i],' '); end.