1) Var a,b,c:integer; x1,x2,d:real; Begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); d:=sqr(b)-(4*a*c); x1:=(-b+sqrt(d))/(2*a); x1:=(-b-sqrt(d))/(2*a); writeln('x1=',x1:0:2); writeln('x2=',x2:0:2); End.
2) Var x,i,s,n,d:integer; Begin write('Введите первый элемент прогрессии: '); readln(x); write('Введите количество элементов в прогрессии: '); readln(n); write('Введите знаменатель прогрессии: '); readln(d); s:=0; for i:=1 to n do begin s:=s+x; x:=x+d; end; writeln('Сумма элементов арифметической прогрессии равна ',s); End.
1) Var a:array[1..30] of integer; max,i:integer; Begin for i:=1 to 30 do readln(a[i]); max:=a[15]; for i:=15 to 30 do if a[i]>max then max:=a[i]; writeln('Max=',max); End.
2) Var a:array[1..30] of integer; max,i:integer; Begin for i:=1 to 30 do readln(a[i]); max:=a[1]; for i:=1 to 30 do if a[i]>max then max:=a[i]; writeln('Max=',max); for i:=1 to 30 do if (a[i]=max)and((i mod 2)=0) then write(i,', '); End.
3) Var a:array[1..30] of integer; max,i,k:integer; Begin for i:=1 to 30 do readln(a[i]); max:=a[1]; for i:=1 to 30 do if a[i]>max then max:=a[i]; writeln('Max=',max); k:=0; for i:=1 to 30 do if (a[i]=max)and((i mod 2)=0) then k:=k+1; writeln('ответ: ',k); End.
