Дан массив. определить: индекс минимального и индекс максимального элементов.

Program bp_sasde; uses crt; var a: array[1..20] of integer; imax,imin,i: integer; begin clrscr; imin: =20; imax: =0; for i: =1 to 20 do begin a[i]: =random(1,20); if a[i]> imax then imax: =a[i] else imin: =a[i]; writeln(a[i]); end; writeln('максимум = ',imax,' а минимум = ',imin); end.

Dim x as integer, y as integer dim f as integer, p as integer cls for x = 0 to 40     y = x * x + x + 41     if y mod 2 = 0 then f = -1 else f = 0     p = 3     do while f = 0 and p * p < = y           if y mod p = 0 then f = -1 else f = 0           p = p + 2     loop     if f = 0 then           print "x="; x, "y="; y, "is prime"     else           print "x="; x, "y="; y, "not prime"     end if next x end обнаружился странный эффект qbasic. последовательность команд: y: =x^2+x+41 для x=40 присваивает у значение 1681. для p=41 значение p^2 также равно 1681, но значение выражения p^2< =y при этом оказывается ложным, хотя p^2 в этом случае должно быть равно у. в связи с этой странностью вместо х^2 использовано х*х, а вместо p^2 использовано р*р. результат выполнения программы: x= 0                  y= 41                is prime x= 1                  y= 43                is prime x= 2                  y= 47                is prime x= 3                  y= 53                is prime x= 4                  y= 61                is prime x= 5                  y= 71                is prime x= 6                  y= 83                is prime x= 7                  y= 97                is prime x= 8                  y= 113              is prime x= 9                  y= 131              is prime x= 10                y= 151              is prime x= 11                y= 173              is prime x= 12                y= 197              is prime x= 13                y= 223              is prime x= 14                y= 251              is prime x= 15                y= 281              is prime x= 16                y= 313              is prime x= 17                y= 347              is prime x= 18                y= 383              is prime x= 19                y= 421              is prime x= 20                y= 461              is prime x= 21                y= 503              is prime x= 22                y= 547              is prime x= 23                y= 593              is prime x= 24                y= 641              is prime x= 25                y= 691              is prime x= 26                y= 743              is prime x= 27                y= 797              is prime x= 28                y= 853              is prime x= 29                y= 911              is prime x= 30                y= 971              is prime x= 31                y= 1033            is prime x= 32                y= 1097            is prime x= 33                y= 1163            is prime x= 34                y= 1231            is prime x= 35                y= 1301            is prime x= 36                y= 1373            is prime x= 37                y= 1447            is prime x= 38                y= 1523            is prime x= 39                y= 1601            is prime x= 40                y= 1681            not prime