Question

составьте программу дискриминанта так, чтобы а,b,с -задавались генератором случайных чисел (random);+эта программа должна включать в себя массив  ( в Pascal )
Просьба писать по возможности с объяснением)  

Answer 1

Var koef:array[1..3] as integer; 

d:real;

i:integer;

Begin

Randomize;

;Генерируем коэффициенты a b c

for i:=1 to 3  do

begin

koef[i]:=random(100);

end;

;Считаем дискриминант 

d:=koef[2]*koef[2]-4*koef[1]*koef[3];

;выводим ответ

Writeln(d:5:2);

end.