Составить программу для решения квадратного уравнения в паскале x^2+2x-6

Uses crt; var d: integer; x1,x2: real; begin d: =2*2-4*1*(-6); x1: =(-2+sqrt(d))/2; x2: =(-2-sqrt(d))/2; writeln(x1); writeln(x2); end.

1)

var

a: array[1..10,1..10] of integer;

i,j: integer;

begin

randomize;

 

  for j: =1 to 10 do

  for i: =1 to 10 do

a[i,j]: =random(51);

for i: =1 to 10 do

write(a[i,4);

end.

2)

var

n,max,i: integer;

 

  a: array[1..n] of integer;

begin

max: =0;

 

  read(n);

for i: =1 to n do

read(a[i]);

for i: =1 to n do

if a[i]> max then max: =a[i];

write(max);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

а) бд «погода», запись номер 3.            влажность = 90            осадки = "дождь"б) бд « библиотека», запись номер 1.            автор = "толстой л.н."             год = 1990в) бд «успеваемость», запись номер 4.            = 27. данные высказывания запишите в форме простых логических выражений и определите результат их вычисления для указанных записей.а) бд «погода», запись номер 2.            температура > 0            осадки < > "дождь"б) бд « библиотека», запись номер 3.            год = 1982            полка < 5в) бд «факультативы», запись номер 4.            увлечения matches "*геологи".            фамилия_ученицы = "шляпина".8. запишите следующие высказывания в форме логических выражений: а) фамилия_ученика < > "семенов"; б) увлечения matches "*геология"; в) дата < 5/05/1989; г) дата < = 23/09/1996; д) < > "отлично"; е) автор = "беляев а.р." ; ж) год = 1990; з) полка < = 5.