Array19. Дан целочисленный массив A размера 10. Вывести порядковый номер последнего из тех его элементов AK, которые удовлетворяют двойному неравенству A1 < AK < A10. Если таких элементов нет, то вывести 0.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | program Array19; var a:array[1..10] of integer; k:Integer; begin for k:=1 to 10 do begin write(k,' :'); readln(a[k]); end; k:=9; While (((A[1]>=A[k]) or (A[k]>=A[10])) and (k>0)) do dec(k); if k=0 then writeln ('0') else Writeln (k); end. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #include <stdio.h> int main(void) { int a[10]; int k; for (k=0; k<10; ++k){ printf("a[%i] : ",k+1); scanf("%i",&a[k]); } k = 9; while (((a[0]>=a[k])||(a[k]>=a[9])) && (k>0)){ --k; } if (k==0) printf("%i", k); else printf("%i",a[k]); return 0; } |
Решение C++
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #include <iostream> using namespace std; int main() { int a[10]; int k; for (k=0; k<10; k++){ cout << "a[" << k << "]="; cin >> a[k]; } k = 9; while (((a[0]>=a[k])||(a[k]>=a[9])) && (k>0)){ --k; } if (k==0) cout << k; else cout << a[k]; return 0; } |
Поля для ввода текста работают некорректно
Решение на C исправили
Добавлено решение на C++