Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение элементов массива с нечётными значениями

Var a: array [1..10] of integer; i,n: integer; begin n: =1; randomize; for i: =1 to 10 do a[i]: =random(10); for i: =1 to 10 do write(a[i],' '); writeln; for i: =1 to 10 do begin if a[i] mod 2 < > 0 then n: =n*a[i] end; write(n); end.

Program programma; uses crt; var  i: integer;         a: array [1..1000] of integer; begin clrscr; for i: =1 to 3 do       begin       write('a[',i,']=');       readln(a[i]);       end;       writeln; for i: =1 to 3 do       begin       if a[i]< > 0 then       begin       if a[i]< 0 then a[i]: =(a[i])*(a[i])       else a[i]: =(sqr(a[i]))*a[i];       write(a[i],'      ');       end       else       write(a[i],'      ');       end; end.

Var a, b, x1, x2, y1, y2, s, p: real; begin write('введите через пробел x1 и y1: '); read(x1, y1); write('введите через пробел x2 и y2: '); read(x2, y2); a: =x2-x1; b: =y1-y2; s: =a*b; p: =2*(a+b); writeln('s = ', s); writeln('p = ', p); end.делать подобное контрпродуктивно, слишком много ненужного кода.var x1, x2, y1, y2, s, p: real; function a(x1, x2: real): real; begina: =x2-x1; end; function b(y1, y2: real): real; beginb: =y1-y2; end; beginwrite('введите через пробел x1 и y1: '); read(x1, y1); write('введите через пробел x2 и y2: '); read(x2, y2); s: =a(x1, x2)*b(y1, y2); p: =2*(a(x1, x2)+b(y1, y2)); writeln('s = ', s); writeln('p = ', p); end.