Три примера реляционных баз данных из различных областей человеческой деятельности.​

< ? php echo "исходный массив: "; $n = rand(1,13); $s = 0; for($i = 0; $i < $n; $i++) {     $a[] = rand(-10,10);     $s+=$a[$i];     echo " $a[$i]"; } echo "сумма элементов = $s"; $k = -1; for($i = $n-1; $i > = 0; $     if ($a[$i] < 0) $k = $i; if ($k == -1) echo "в массиве нет отрицательных элементов"; else echo "№ первого отрицательного: $k"; $sr = $s/$n; echo "sr = $sr"; $b = 0; $c = 0; for($i = 0; $i < $n; $i++) {     if ($a[$i] < $sr) $b = $i;     if ($a[$i] > $sr) $c = $i; } echo "№ элемента, превышающего sr: $c"; echo "№ элемента, который меньше sr: $b"; ? >

Заполнение массива случайными числами: var     a: array[1..10000] of real;     n,i: integer; begin randomize; write('n = '); readln(n); write('a(',n,'): '); for i: = 1 to n do       begin       a[i]: =random*(2*n+1)-n;       write(' ',a[i]: 0: 1)       end; writeln; i: =0; for n: = 1 to n-1 do       if (a[n] > 0)and(a[n+1] > 0) then i: =i+1; writeln('k = ',i); end. ввод с клавиатуры, без массива: var     a,a2: real;     n,k: integer; begin write('n = '); readln(n); read(a); k: =0; for n: = 2 to n do       begin       a2: =a;       read(a);       if (a > 0)and(a2 > 0) then k: =k+1;       end; writeln('k = ',k); end.