29. Дан массив целых чисел. Найти индексы элементов, значения которых больше значения предыдущего элемента (на­чиная со второго). Program a29; Var i,n:integer; - презентация

1 29. Дан массив целых чисел. Найти индексы элементов, значения которых больше значения предыдущего элемента (на­чиная со второго). Program a29; Var i,n:integer; a:array[1..10] of integer; Begin read(n); For i:=1 to n do begin a[i]:=random(10); write(a[i]:3); end; For i:=1 to n-1 do If a[i+1]>a[i] then write (i+1:3); end. Результаты выполнения программы для n=9: a:{ } i:

2 32. Даны два различных выражения типа: у = а n · х n + а n-1 ·х n а 2 · х 2 + а 1 ·х 1 + а 0, z = b n · х n + b n-1 ·х n b 2 · х 2 + b 1 ·х 1 + b 0, где все данные целые числа. Коэффициенты выражений хра­нятся в массивах А и В. При заданном значении х найти макси­мальное значение (y, z).

3 A:{a 0,a 1,a 2, a n } {a[1],a[2],…a[n],a[n+1]} B:{b 0,b 1,b 2, b n } {b[1],b[2],…b[n],b[n+1]} Program a32; Var x,y,z,i,p,n:integer; a,b:array[1..10] of integer; Begin read(n); read(x); For i:=1 to n+1 do begin a[i]:=random(10); write(a[i]:3); b[i]:=random(10); writeln(b[i]:3); end;

4 Найдем у и z у = а n · х n а 2 · х 2 + а 1 ·х 1 + а 0 Y:=a[1]; z:=b[1]; p:=1; For i:=1 to n+1 do begin P:=P*x; Y:=y+P*a[i]; Z:=z+P*b[i]; end; writeln(y=,y, z=,z); If y>z then Writeln(наибольшее из у и z – это у=,y); If z>y then Writeln(наибольшее из у и z – это z=,z); If y=z then writeln (у и z равны) End.