Умя паскаль, составьте программу, которая формируется массив из шестнадцати случайных целых чисел от -20 до 20 и: находить элементы с нулевыми значениями.

Program ask_1; const k = -20;           b = 20; type myarray = array[1..16]of integer; var a: myarray;       i: integer; // begin randomize; for i: =1 to 16 do begin a[i] : = random(b-k+1); if (a[i] = 0) then write(i); end; end. поскольку в не сказано вывести данный массив, то в этой программе выводятся элементы с 0 значением.

i,n: integer;

procedure IN1(var a,b:real;n:integer;var y:real);

var

p:real;

i:integer;

begin

y:=1;

for i:=1 to n do

begin

p:=exp(b*ln(a));

y:=p*y;

end;

end;

procedure IN2(var a, b:real; n:integer; var y1:real);

var

p:real;

i:integer;

begin

y1:=0;

for i:=1 to n do

begin

p:=exp(b*ln(a));

y1:=y1+p;

end;

end;

begin

write(' Введите a, b,n');

readln(a,b,n);

IN1(a,b,n,y2);

writeln('p1 ',y2:10:2);

writeln(' Введите c, b,m');

read(a,b,n);

IN2(a,b,n,y3);

writeln('s ',y3:10:2);

write(' Введите e, f,L');

readln(a,b,n);

IN1(a,b,n,y5);

writeln('p2 ',y5:10:2);

y6:=(y2+y3)/y5;

writeln(y6:8:3); end.

В 5 строчке надо было написать 'then', а написано 'thn'

В 7 строчке 'else' должно быть, а написано 'ele'

Строчка 'd:=bb-4ac' тоже неверная. Переменной bb не было, поэтому, кажется, должно быть b.

Там много ошибок, поэтому я немного подправила код. Но он всё равно не будет работать, потому что там используется конструкция if else неправильно (лучше ещё раз переписать код и как-то изменить эту конструкцию. там много else, а по правилам, к каждому if относится только одно else. Самостоятельно же else работать не может без if)

var a,b,c,D,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

x1:=c/b;

writeln('x=',x1:12:6);

end;

else begin

d:=b-4ac;

if d>0 then begin

x1:=(-b-sqrt(D))/(2a);

x2:=(-b+sqrt(D))/(2a);

writeln('x1=',x1:12:6);

writeln('x2=',x2:12:6);

end;

else if D=0 then begin

x1:=-b/(2a);

writeln('x=',x1:12:6);

end;

else writeln('нет решений' );

end;

readln;

end.