Объяснение:
В квадратных скобках указывается порядковый номер числа константы "b", т.е. число 11 стоит на 5 месте относительно других значений в массиве, как это указано в квадратных скобках.
Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
readln(a,b,c);
If A=0 Then
If B=0 Then
If C=0 Then Writeln('X - любое число')
Else Writeln('Корней нет! ')
Else
Begin
X:=-C/B;
Writeln('X=',X:8:3);
End
Else
Begin
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);
End;
End;
End.
Ответ:
program kod;
var
a: array [1..10] of Integer;
i, p: Integer;
begin
for i:=Low(a) to High(a) do a[i]:=-40+Random(91);
p:=1;
for i:=Low(a) to High(a) do if (a[i]>0) and (a[i] mod 7=0) then p:=p*a[i];
end.
Объяснение:
У меня второй вариант решения. Размерность массива: [1..10] можно любую делать
P=&q1, по по етому адресу у нас лежит 2
*р1 называется разименованием, достаем значение из адреса.
*р1=2; *p2=5;
<span>q3= -3;</span>
<span>Бокситы, алмазы, известняк, глина, стекольные пески</span>